/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / picture.elc.z / picture.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6f 6c 61 6e 64 40 |piled by| roland@|
|00000020| 63 68 61 72 6c 69 65 2d | 62 72 6f 77 6e 2e 67 6e |charlie-|brown.gn|
|00000030| 75 2e 61 69 2e 6d 69 74 | 2e 65 64 75 20 6f 6e 20 |u.ai.mit|.edu on |
|00000040| 53 61 74 20 46 65 62 20 | 31 37 20 31 36 3a 32 35 |Sat Feb |17 16:25|
|00000050| 3a 31 36 20 31 39 39 36 | 0a 3b 3b 3b 20 66 72 6f |:16 1996|.;;; fro|
|00000060| 6d 20 66 69 6c 65 20 2f | 67 64 2f 67 6e 75 2f 65 |m file /|gd/gnu/e|
|00000070| 6d 61 63 73 2f 31 39 2e | 30 2f 6c 69 73 70 2f 70 |macs/19.|0/lisp/p|
|00000080| 69 63 74 75 72 65 2e 65 | 6c 0a 3b 3b 3b 20 65 6d |icture.e|l.;;; em|
|00000090| 61 63 73 20 76 65 72 73 | 69 6f 6e 20 31 39 2e 33 |acs vers|ion 19.3|
|000000a0| 30 2e 39 31 2e 33 2e 0a | 3b 3b 3b 20 62 79 74 65 |0.91.3..|;;; byte|
|000000b0| 63 6f 6d 70 20 76 65 72 | 73 69 6f 6e 20 46 53 46 |comp ver|sion FSF|
|000000c0| 20 32 2e 31 30 0a 3b 3b | 3b 20 6f 70 74 69 6d 69 | 2.10.;;|; optimi|
|000000d0| 7a 61 74 69 6f 6e 20 69 | 73 20 6f 6e 2e 0a 3b 3b |zation i|s on..;;|
|000000e0| 3b 20 74 68 69 73 20 66 | 69 6c 65 20 75 73 65 73 |; this f|ile uses|
|000000f0| 20 6f 70 63 6f 64 65 73 | 20 77 68 69 63 68 20 64 | opcodes| which d|
|00000100| 6f 20 6e 6f 74 20 65 78 | 69 73 74 20 69 6e 20 45 |o not ex|ist in E|
|00000110| 6d 61 63 73 20 31 38 2e | 0a 0a 28 69 66 20 28 61 |macs 18.|..(if (a|
|00000120| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 6d 61 63 |nd (boun|dp 'emac|
|00000130| 73 2d 76 65 72 73 69 6f | 6e 29 0a 09 20 28 6f 72 |s-versio|n).. (or|
|00000140| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000150| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 20 65 |poch::ve|rsion) e|
|00000160| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 0a 09 |poch::ve|rsion)..|
|00000170| 20 20 20 20 20 28 73 74 | 72 69 6e 67 2d 6c 65 73 |     (st|ring-les|
|00000180| 73 70 20 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |sp emacs|-version|
|00000190| 20 22 31 39 2e 32 39 22 | 29 29 29 0a 20 20 20 20 | "19.29"|))).    |
|000001a0| 28 65 72 72 6f 72 20 22 | 60 70 69 63 74 75 72 65 |(error "|`picture|
|000001b0| 2e 65 6c 27 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |.el' was| compile|
|000001c0| 64 20 66 6f 72 20 45 6d | 61 63 73 20 31 39 2e 32 |d for Em|acs 19.2|
|000001d0| 39 20 6f 72 20 6c 61 74 | 65 72 22 29 29 0a 0a 0a |9 or lat|er"))...|
|000001e0| 23 40 31 36 35 20 4d 6f | 76 65 20 74 6f 20 63 6f |#@165 Mo|ve to co|
|000001f0| 6c 75 6d 6e 20 43 4f 4c | 55 4d 4e 20 69 6e 20 63 |lumn COL|UMN in c|
|00000200| 75 72 72 65 6e 74 20 6c | 69 6e 65 2e 0a 44 69 66 |urrent l|ine..Dif|
|00000210| 66 65 72 73 20 66 72 6f | 6d 20 60 6d 6f 76 65 2d |fers fro|m `move-|
|00000220| 74 6f 2d 63 6f 6c 75 6d | 6e 27 20 69 6e 20 74 68 |to-colum|n' in th|
|00000230| 61 74 20 69 74 20 63 72 | 65 61 74 65 73 20 6f 72 |at it cr|eates or|
|00000240| 20 6d 6f 64 69 66 69 65 | 73 20 77 68 69 74 65 73 | modifie|s whites|
|00000250| 70 61 63 65 0a 69 66 20 | 6e 65 63 65 73 73 61 72 |pace.if |necessar|
|00000260| 79 20 74 6f 20 61 74 74 | 61 69 6e 20 65 78 61 63 |y to att|ain exac|
|00000270| 74 6c 79 20 74 68 65 20 | 73 70 65 63 69 66 69 65 |tly the |specifie|
|00000280| 64 20 63 6f 6c 75 6d 6e | 2e 1f 0a 28 64 65 66 61 |d column|...(defa|
|00000290| 6c 69 61 73 20 27 6d 6f | 76 65 2d 74 6f 2d 63 6f |lias 'mo|ve-to-co|
|000002a0| 6c 75 6d 6e 2d 66 6f 72 | 63 65 20 23 5b 28 63 6f |lumn-for|ce #[(co|
|000002b0| 6c 75 6d 6e 29 20 22 c0 | 09 21 84 08 00 c2 11 c3 |lumn) ".|.!......|
|000002c0| 09 21 88 69 89 1c 09 57 | 83 1a 00 09 6a 88 82 35 |.!.i...W|....j..5|
|000002d0| 00 5c 66 09 55 84 35 00 | 68 c5 55 83 35 00 c6 1e |.\f.U.5.|h.U.5...|
|000002e0| 07 c8 c9 21 88 5c 66 6a | 88 c3 09 21 88 29 ca 20 |...!.\fj|...!.). |
|000002f0| 29 87 22 20 5b 6e 61 74 | 6e 75 6d 70 20 63 6f 6c |)." [nat|nump col|
|00000300| 75 6d 6e 20 30 20 6d 6f | 76 65 2d 74 6f 2d 63 6f |umn 0 mo|ve-to-co|
|00000310| 6c 75 6d 6e 20 63 6f 6c | 20 39 20 6e 69 6c 20 69 |lumn col| 9 nil i|
|00000320| 6e 64 65 6e 74 2d 74 61 | 62 73 2d 6d 6f 64 65 20 |ndent-ta|bs-mode |
|00000330| 64 65 6c 65 74 65 2d 63 | 68 61 72 20 2d 31 20 68 |delete-c|har -1 h|
|00000340| 73 63 72 6f 6c 6c 2d 70 | 6f 69 6e 74 2d 76 69 73 |scroll-p|oint-vis|
|00000350| 69 62 6c 65 5d 20 33 20 | 28 23 24 20 2e 20 34 38 |ible] 3 |(#$ . 48|
|00000360| 36 29 5d 29 0a 23 40 31 | 35 35 20 50 6f 73 69 74 |6)]).#@1|55 Posit|
|00000370| 69 6f 6e 20 70 6f 69 6e | 74 20 61 74 20 74 68 65 |ion poin|t at the|
|00000380| 20 62 65 67 69 6e 6e 69 | 6e 67 20 6f 66 20 74 68 | beginni|ng of th|
|00000390| 65 20 6c 69 6e 65 2e 0a | 57 69 74 68 20 41 52 47 |e line..|With ARG|
|000003a0| 20 6e 6f 74 20 6e 69 6c | 2c 20 6d 6f 76 65 20 66 | not nil|, move f|
|000003b0| 6f 72 77 61 72 64 20 41 | 52 47 20 2d 20 31 20 6c |orward A|RG - 1 l|
|000003c0| 69 6e 65 73 20 66 69 72 | 73 74 2e 0a 49 66 20 73 |ines fir|st..If s|
|000003d0| 63 61 6e 20 72 65 61 63 | 68 65 73 20 65 6e 64 20 |can reac|hes end |
|000003e0| 6f 66 20 62 75 66 66 65 | 72 2c 20 73 74 6f 70 20 |of buffe|r, stop |
|000003f0| 74 68 65 72 65 20 77 69 | 74 68 6f 75 74 20 65 72 |there wi|thout er|
|00000400| 72 6f 72 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ror...(d|efalias |
|00000410| 27 70 69 63 74 75 72 65 | 2d 62 65 67 69 6e 6e 69 |'picture|-beginni|
|00000420| 6e 67 2d 6f 66 2d 6c 69 | 6e 65 20 23 5b 28 26 6f |ng-of-li|ne #[(&o|
|00000430| 70 74 69 6f 6e 61 6c 20 | 61 72 67 29 20 22 08 83 |ptional |arg) "..|
|00000440| 5c 6e 00 c1 08 21 53 79 | 88 c2 79 88 c3 20 87 22 |\n...!Sy|..y.. ."|
|00000450| 20 5b 61 72 67 20 70 72 | 65 66 69 78 2d 6e 75 6d | [arg pr|efix-num|
|00000460| 65 72 69 63 2d 76 61 6c | 75 65 20 30 20 68 73 63 |eric-val|ue 0 hsc|
|00000470| 72 6f 6c 6c 2d 70 6f 69 | 6e 74 2d 76 69 73 69 62 |roll-poi|nt-visib|
|00000480| 6c 65 5d 20 32 20 28 23 | 24 20 2e 20 38 37 35 29 |le] 2 (#|$ . 875)|
|00000490| 20 22 50 22 5d 29 0a 23 | 40 31 37 33 20 50 6f 73 | "P"]).#|@173 Pos|
|000004a0| 69 74 69 6f 6e 20 70 6f | 69 6e 74 20 61 66 74 65 |ition po|int afte|
|000004b0| 72 20 6c 61 73 74 20 6e | 6f 6e 2d 62 6c 61 6e 6b |r last n|on-blank|
|000004c0| 20 63 68 61 72 61 63 74 | 65 72 20 6f 6e 20 63 75 | charact|er on cu|
|000004d0| 72 72 65 6e 74 20 6c 69 | 6e 65 2e 0a 57 69 74 68 |rrent li|ne..With|
|000004e0| 20 41 52 47 20 6e 6f 74 | 20 6e 69 6c 2c 20 6d 6f | ARG not| nil, mo|
|000004f0| 76 65 20 66 6f 72 77 61 | 72 64 20 41 52 47 20 2d |ve forwa|rd ARG -|
|00000500| 20 31 20 6c 69 6e 65 73 | 20 66 69 72 73 74 2e 0a | 1 lines| first..|
|00000510| 49 66 20 73 63 61 6e 20 | 72 65 61 63 68 65 73 20 |If scan |reaches |
|00000520| 65 6e 64 20 6f 66 20 62 | 75 66 66 65 72 2c 20 73 |end of b|uffer, s|
|00000530| 74 6f 70 20 74 68 65 72 | 65 20 77 69 74 68 6f 75 |top ther|e withou|
|00000540| 74 20 65 72 72 6f 72 2e | 1f 0a 28 64 65 66 61 6c |t error.|..(defal|
|00000550| 69 61 73 20 27 70 69 63 | 74 75 72 65 2d 65 6e 64 |ias 'pic|ture-end|
|00000560| 2d 6f 66 2d 6c 69 6e 65 | 20 23 5b 28 26 6f 70 74 |-of-line| #[(&opt|
|00000570| 69 6f 6e 61 6c 20 61 72 | 67 29 20 22 08 83 5c 6e |ional ar|g) "..\n|
|00000580| 00 c1 08 21 53 79 88 c2 | 79 88 c3 60 c4 7f 88 78 |...!Sy..|y..`...x|
|00000590| 88 c5 20 87 22 20 5b 61 | 72 67 20 70 72 65 66 69 |.. ." [a|rg prefi|
|000005a0| 78 2d 6e 75 6d 65 72 69 | 63 2d 76 61 6c 75 65 20 |x-numeri|c-value |
|000005b0| 30 20 22 20 09 22 20 6e | 69 6c 20 68 73 63 72 6f |0 " ." n|il hscro|
|000005c0| 6c 6c 2d 70 6f 69 6e 74 | 2d 76 69 73 69 62 6c 65 |ll-point|-visible|
|000005d0| 5d 20 33 20 28 23 24 20 | 2e 20 31 31 38 31 29 20 |] 3 (#$ |. 1181) |
|000005e0| 22 50 22 5d 29 0a 23 40 | 39 31 20 4d 6f 76 65 20 |"P"]).#@|91 Move |
|000005f0| 63 75 72 73 6f 72 20 72 | 69 67 68 74 2c 20 6d 61 |cursor r|ight, ma|
|00000600| 6b 69 6e 67 20 77 68 69 | 74 65 73 70 61 63 65 20 |king whi|tespace |
|00000610| 69 66 20 6e 65 63 65 73 | 73 61 72 79 2e 0a 57 69 |if neces|sary..Wi|
|00000620| 74 68 20 61 72 67 75 6d | 65 6e 74 2c 20 6d 6f 76 |th argum|ent, mov|
|00000630| 65 20 74 68 61 74 20 6d | 61 6e 79 20 63 6f 6c 75 |e that m|any colu|
|00000640| 6d 6e 73 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |mns...(d|efalias |
|00000650| 27 70 69 63 74 75 72 65 | 2d 66 6f 72 77 61 72 64 |'picture|-forward|
|00000660| 2d 63 6f 6c 75 6d 6e 20 | 23 5b 28 61 72 67 29 20 |-column |#[(arg) |
|00000670| 22 69 08 5c 5c 19 c2 09 | 21 88 08 c3 57 85 16 00 |"i.\\...|!...W...|
|00000680| 69 09 56 85 16 00 c4 75 | 29 87 22 20 5b 61 72 67 |i.V....u|)." [arg|
|00000690| 20 74 61 72 67 65 74 2d | 63 6f 6c 75 6d 6e 20 6d | target-|column m|
|000006a0| 6f 76 65 2d 74 6f 2d 63 | 6f 6c 75 6d 6e 2d 66 6f |ove-to-c|olumn-fo|
|000006b0| 72 63 65 20 30 20 2d 31 | 5d 20 32 20 28 23 24 20 |rce 0 -1|] 2 (#$ |
|000006c0| 2e 20 31 35 31 35 29 20 | 22 70 22 5d 29 0a 23 40 |. 1515) |"p"]).#@|
|000006d0| 39 30 20 4d 6f 76 65 20 | 63 75 72 73 6f 72 20 6c |90 Move |cursor l|
|000006e0| 65 66 74 2c 20 6d 61 6b | 69 6e 67 20 77 68 69 74 |eft, mak|ing whit|
|000006f0| 65 73 70 61 63 65 20 69 | 66 20 6e 65 63 65 73 73 |espace i|f necess|
|00000700| 61 72 79 2e 0a 57 69 74 | 68 20 61 72 67 75 6d 65 |ary..Wit|h argume|
|00000710| 6e 74 2c 20 6d 6f 76 65 | 20 74 68 61 74 20 6d 61 |nt, move| that ma|
|00000720| 6e 79 20 63 6f 6c 75 6d | 6e 73 2e 1f 0a 28 64 65 |ny colum|ns...(de|
|00000730| 66 61 6c 69 61 73 20 27 | 70 69 63 74 75 72 65 2d |falias '|picture-|
|00000740| 62 61 63 6b 77 61 72 64 | 2d 63 6f 6c 75 6d 6e 20 |backward|-column |
|00000750| 23 5b 28 61 72 67 29 20 | 22 c0 09 5b 21 87 22 20 |#[(arg) |"..[!." |
|00000760| 5b 70 69 63 74 75 72 65 | 2d 66 6f 72 77 61 72 64 |[picture|-forward|
|00000770| 2d 63 6f 6c 75 6d 6e 20 | 61 72 67 5d 20 32 20 28 |-column |arg] 2 (|
|00000780| 23 24 20 2e 20 31 37 34 | 37 29 20 22 70 22 5d 29 |#$ . 174|7) "p"])|
|00000790| 0a 23 40 39 32 20 4d 6f | 76 65 20 76 65 72 74 69 |.#@92 Mo|ve verti|
|000007a0| 63 61 6c 6c 79 20 64 6f | 77 6e 2c 20 6d 61 6b 69 |cally do|wn, maki|
|000007b0| 6e 67 20 77 68 69 74 65 | 73 70 61 63 65 20 69 66 |ng white|space if|
|000007c0| 20 6e 65 63 65 73 73 61 | 72 79 2e 0a 57 69 74 68 | necessa|ry..With|
|000007d0| 20 61 72 67 75 6d 65 6e | 74 2c 20 6d 6f 76 65 20 | argumen|t, move |
|000007e0| 74 68 61 74 20 6d 61 6e | 79 20 6c 69 6e 65 73 2e |that man|y lines.|
|000007f0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 70 69 63 |..(defal|ias 'pic|
|00000800| 74 75 72 65 2d 6d 6f 76 | 65 2d 64 6f 77 6e 20 23 |ture-mov|e-down #|
|00000810| 5b 28 61 72 67 29 20 22 | 69 18 c1 5c 6e 21 88 c3 |[(arg) "|i..\n!..|
|00000820| 08 21 29 87 22 20 5b 63 | 6f 6c 20 70 69 63 74 75 |.!)." [c|ol pictu|
|00000830| 72 65 2d 6e 65 77 6c 69 | 6e 65 20 61 72 67 20 6d |re-newli|ne arg m|
|00000840| 6f 76 65 2d 74 6f 2d 63 | 6f 6c 75 6d 6e 2d 66 6f |ove-to-c|olumn-fo|
|00000850| 72 63 65 5d 20 32 20 28 | 23 24 20 2e 20 31 39 34 |rce] 2 (|#$ . 194|
|00000860| 32 29 20 22 70 22 5d 29 | 0a 23 40 36 35 20 41 6d |2) "p"])|.#@65 Am|
|00000870| 6f 75 6e 74 20 74 6f 20 | 6d 6f 76 65 20 76 65 72 |ount to |move ver|
|00000880| 74 69 63 61 6c 6c 79 20 | 61 66 74 65 72 20 74 65 |tically |after te|
|00000890| 78 74 20 63 68 61 72 61 | 63 74 65 72 20 69 6e 20 |xt chara|cter in |
|000008a0| 50 69 63 74 75 72 65 20 | 6d 6f 64 65 2e 1f 0a 28 |Picture |mode...(|
|000008b0| 64 65 66 63 6f 6e 73 74 | 20 70 69 63 74 75 72 65 |defconst| picture|
|000008c0| 2d 76 65 72 74 69 63 61 | 6c 2d 73 74 65 70 20 30 |-vertica|l-step 0|
|000008d0| 20 28 23 24 20 2e 20 32 | 31 35 38 29 29 0a 23 40 | (#$ . 2|158)).#@|
|000008e0| 36 37 20 41 6d 6f 75 6e | 74 20 74 6f 20 6d 6f 76 |67 Amoun|t to mov|
|000008f0| 65 20 68 6f 72 69 7a 6f | 6e 74 61 6c 6c 79 20 61 |e horizo|ntally a|
|00000900| 66 74 65 72 20 74 65 78 | 74 20 63 68 61 72 61 63 |fter tex|t charac|
|00000910| 74 65 72 20 69 6e 20 50 | 69 63 74 75 72 65 20 6d |ter in P|icture m|
|00000920| 6f 64 65 2e 1f 0a 28 64 | 65 66 63 6f 6e 73 74 20 |ode...(d|efconst |
|00000930| 70 69 63 74 75 72 65 2d | 68 6f 72 69 7a 6f 6e 74 |picture-|horizont|
|00000940| 61 6c 2d 73 74 65 70 20 | 31 20 28 23 24 20 2e 20 |al-step |1 (#$ . |
|00000950| 32 32 37 35 29 29 0a 23 | 40 39 30 20 4d 6f 76 65 |2275)).#|@90 Move|
|00000960| 20 76 65 72 74 69 63 61 | 6c 6c 79 20 75 70 2c 20 | vertica|lly up, |
|00000970| 6d 61 6b 69 6e 67 20 77 | 68 69 74 65 73 70 61 63 |making w|hitespac|
|00000980| 65 20 69 66 20 6e 65 63 | 65 73 73 61 72 79 2e 0a |e if nec|essary..|
|00000990| 57 69 74 68 20 61 72 67 | 75 6d 65 6e 74 2c 20 6d |With arg|ument, m|
|000009a0| 6f 76 65 20 74 68 61 74 | 20 6d 61 6e 79 20 6c 69 |ove that| many li|
|000009b0| 6e 65 73 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |nes...(d|efalias |
|000009c0| 27 70 69 63 74 75 72 65 | 2d 6d 6f 76 65 2d 75 70 |'picture|-move-up|
|000009d0| 20 23 5b 28 61 72 67 29 | 20 22 c0 09 5b 21 87 22 | #[(arg)| "..[!."|
|000009e0| 20 5b 70 69 63 74 75 72 | 65 2d 6d 6f 76 65 2d 64 | [pictur|e-move-d|
|000009f0| 6f 77 6e 20 61 72 67 5d | 20 32 20 28 23 24 20 2e |own arg]| 2 (#$ .|
|00000a00| 20 32 33 39 36 29 20 22 | 70 22 5d 29 0a 23 40 36 | 2396) "|p"]).#@6|
|00000a10| 30 20 4d 6f 76 65 20 72 | 69 67 68 74 20 61 66 74 |0 Move r|ight aft|
|00000a20| 65 72 20 73 65 6c 66 2d | 69 6e 73 65 72 74 69 6e |er self-|insertin|
|00000a30| 67 20 63 68 61 72 61 63 | 74 65 72 20 69 6e 20 50 |g charac|ter in P|
|00000a40| 69 63 74 75 72 65 20 6d | 6f 64 65 2e 1f 0a 28 64 |icture m|ode...(d|
|00000a50| 65 66 61 6c 69 61 73 20 | 27 70 69 63 74 75 72 65 |efalias |'picture|
|00000a60| 2d 6d 6f 76 65 6d 65 6e | 74 2d 72 69 67 68 74 20 |-movemen|t-right |
|00000a70| 23 5b 6e 69 6c 20 22 c0 | c1 c2 5c 22 87 22 20 5b |#[nil ".|..\"." [|
|00000a80| 70 69 63 74 75 72 65 2d | 73 65 74 2d 6d 6f 74 69 |picture-|set-moti|
|00000a90| 6f 6e 20 30 20 31 5d 20 | 33 20 28 23 24 20 2e 20 |on 0 1] |3 (#$ . |
|00000aa0| 32 35 37 38 29 20 6e 69 | 6c 5d 29 0a 23 40 35 39 |2578) ni|l]).#@59|
|00000ab0| 20 4d 6f 76 65 20 6c 65 | 66 74 20 61 66 74 65 72 | Move le|ft after|
|00000ac0| 20 73 65 6c 66 2d 69 6e | 73 65 72 74 69 6e 67 20 | self-in|serting |
|00000ad0| 63 68 61 72 61 63 74 65 | 72 20 69 6e 20 50 69 63 |characte|r in Pic|
|00000ae0| 74 75 72 65 20 6d 6f 64 | 65 2e 1f 0a 28 64 65 66 |ture mod|e...(def|
|00000af0| 61 6c 69 61 73 20 27 70 | 69 63 74 75 72 65 2d 6d |alias 'p|icture-m|
|00000b00| 6f 76 65 6d 65 6e 74 2d | 6c 65 66 74 20 23 5b 6e |ovement-|left #[n|
|00000b10| 69 6c 20 22 c0 c1 c2 5c | 22 87 22 20 5b 70 69 63 |il "...\|"." [pic|
|00000b20| 74 75 72 65 2d 73 65 74 | 2d 6d 6f 74 69 6f 6e 20 |ture-set|-motion |
|00000b30| 30 20 2d 31 5d 20 33 20 | 28 23 24 20 2e 20 32 37 |0 -1] 3 |(#$ . 27|
|00000b40| 33 37 29 20 6e 69 6c 5d | 29 0a 23 40 35 37 20 4d |37) nil]|).#@57 M|
|00000b50| 6f 76 65 20 75 70 20 61 | 66 74 65 72 20 73 65 6c |ove up a|fter sel|
|00000b60| 66 2d 69 6e 73 65 72 74 | 69 6e 67 20 63 68 61 72 |f-insert|ing char|
|00000b70| 61 63 74 65 72 20 69 6e | 20 50 69 63 74 75 72 65 |acter in| Picture|
|00000b80| 20 6d 6f 64 65 2e 1f 0a | 28 64 65 66 61 6c 69 61 | mode...|(defalia|
|00000b90| 73 20 27 70 69 63 74 75 | 72 65 2d 6d 6f 76 65 6d |s 'pictu|re-movem|
|00000ba0| 65 6e 74 2d 75 70 20 23 | 5b 6e 69 6c 20 22 c0 c1 |ent-up #|[nil "..|
|00000bb0| c2 5c 22 87 22 20 5b 70 | 69 63 74 75 72 65 2d 73 |.\"." [p|icture-s|
|00000bc0| 65 74 2d 6d 6f 74 69 6f | 6e 20 2d 31 20 30 5d 20 |et-motio|n -1 0] |
|00000bd0| 33 20 28 23 24 20 2e 20 | 32 38 39 35 29 20 6e 69 |3 (#$ . |2895) ni|
|00000be0| 6c 5d 29 0a 23 40 35 39 | 20 4d 6f 76 65 20 64 6f |l]).#@59| Move do|
|00000bf0| 77 6e 20 61 66 74 65 72 | 20 73 65 6c 66 2d 69 6e |wn after| self-in|
|00000c00| 73 65 72 74 69 6e 67 20 | 63 68 61 72 61 63 74 65 |serting |characte|
|00000c10| 72 20 69 6e 20 50 69 63 | 74 75 72 65 20 6d 6f 64 |r in Pic|ture mod|
|00000c20| 65 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 70 |e...(def|alias 'p|
|00000c30| 69 63 74 75 72 65 2d 6d | 6f 76 65 6d 65 6e 74 2d |icture-m|ovement-|
|00000c40| 64 6f 77 6e 20 23 5b 6e | 69 6c 20 22 c0 c1 c2 5c |down #[n|il "...\|
|00000c50| 22 87 22 20 5b 70 69 63 | 74 75 72 65 2d 73 65 74 |"." [pic|ture-set|
|00000c60| 2d 6d 6f 74 69 6f 6e 20 | 31 20 30 5d 20 33 20 28 |-motion |1 0] 3 (|
|00000c70| 23 24 20 2e 20 33 30 34 | 39 29 20 6e 69 6c 5d 29 |#$ . 304|9) nil])|
|00000c80| 0a 23 40 36 36 20 4d 6f | 76 65 20 75 70 20 61 6e |.#@66 Mo|ve up an|
|00000c90| 64 20 6c 65 66 74 20 61 | 66 74 65 72 20 73 65 6c |d left a|fter sel|
|00000ca0| 66 2d 69 6e 73 65 72 74 | 69 6e 67 20 63 68 61 72 |f-insert|ing char|
|00000cb0| 61 63 74 65 72 20 69 6e | 20 50 69 63 74 75 72 65 |acter in| Picture|
|00000cc0| 20 6d 6f 64 65 2e 1f 0a | 28 64 65 66 61 6c 69 61 | mode...|(defalia|
|00000cd0| 73 20 27 70 69 63 74 75 | 72 65 2d 6d 6f 76 65 6d |s 'pictu|re-movem|
|00000ce0| 65 6e 74 2d 6e 77 20 23 | 5b 6e 69 6c 20 22 c0 c1 |ent-nw #|[nil "..|
|00000cf0| 89 5c 22 87 22 20 5b 70 | 69 63 74 75 72 65 2d 73 |.\"." [p|icture-s|
|00000d00| 65 74 2d 6d 6f 74 69 6f | 6e 20 2d 31 5d 20 33 20 |et-motio|n -1] 3 |
|00000d10| 28 23 24 20 2e 20 33 32 | 30 36 29 20 6e 69 6c 5d |(#$ . 32|06) nil]|
|00000d20| 29 0a 23 40 36 37 20 4d | 6f 76 65 20 75 70 20 61 |).#@67 M|ove up a|
|00000d30| 6e 64 20 72 69 67 68 74 | 20 61 66 74 65 72 20 73 |nd right| after s|
|00000d40| 65 6c 66 2d 69 6e 73 65 | 72 74 69 6e 67 20 63 68 |elf-inse|rting ch|
|00000d50| 61 72 61 63 74 65 72 20 | 69 6e 20 50 69 63 74 75 |aracter |in Pictu|
|00000d60| 72 65 20 6d 6f 64 65 2e | 1f 0a 28 64 65 66 61 6c |re mode.|..(defal|
|00000d70| 69 61 73 20 27 70 69 63 | 74 75 72 65 2d 6d 6f 76 |ias 'pic|ture-mov|
|00000d80| 65 6d 65 6e 74 2d 6e 65 | 20 23 5b 6e 69 6c 20 22 |ement-ne| #[nil "|
|00000d90| c0 c1 c2 5c 22 87 22 20 | 5b 70 69 63 74 75 72 65 |...\"." |[picture|
|00000da0| 2d 73 65 74 2d 6d 6f 74 | 69 6f 6e 20 2d 31 20 31 |-set-mot|ion -1 1|
|00000db0| 5d 20 33 20 28 23 24 20 | 2e 20 33 33 36 37 29 20 |] 3 (#$ |. 3367) |
|00000dc0| 6e 69 6c 5d 29 0a 23 40 | 36 38 20 4d 6f 76 65 20 |nil]).#@|68 Move |
|00000dd0| 64 6f 77 6e 20 61 6e 64 | 20 6c 65 66 74 20 61 66 |down and| left af|
|00000de0| 74 65 72 20 73 65 6c 66 | 2d 69 6e 73 65 72 74 69 |ter self|-inserti|
|00000df0| 6e 67 20 63 68 61 72 61 | 63 74 65 72 20 69 6e 20 |ng chara|cter in |
|00000e00| 50 69 63 74 75 72 65 20 | 6d 6f 64 65 2e 1f 0a 28 |Picture |mode...(|
|00000e10| 64 65 66 61 6c 69 61 73 | 20 27 70 69 63 74 75 72 |defalias| 'pictur|
|00000e20| 65 2d 6d 6f 76 65 6d 65 | 6e 74 2d 73 77 20 23 5b |e-moveme|nt-sw #[|
|00000e30| 6e 69 6c 20 22 c0 c1 c2 | 5c 22 87 22 20 5b 70 69 |nil "...|\"." [pi|
|00000e40| 63 74 75 72 65 2d 73 65 | 74 2d 6d 6f 74 69 6f 6e |cture-se|t-motion|
|00000e50| 20 31 20 2d 31 5d 20 33 | 20 28 23 24 20 2e 20 33 | 1 -1] 3| (#$ . 3|
|00000e60| 35 33 31 29 20 6e 69 6c | 5d 29 0a 23 40 36 39 20 |531) nil|]).#@69 |
|00000e70| 4d 6f 76 65 20 64 6f 77 | 6e 20 61 6e 64 20 72 69 |Move dow|n and ri|
|00000e80| 67 68 74 20 61 66 74 65 | 72 20 73 65 6c 66 2d 69 |ght afte|r self-i|
|00000e90| 6e 73 65 72 74 69 6e 67 | 20 63 68 61 72 61 63 74 |nserting| charact|
|00000ea0| 65 72 20 69 6e 20 50 69 | 63 74 75 72 65 20 6d 6f |er in Pi|cture mo|
|00000eb0| 64 65 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |de...(de|falias '|
|00000ec0| 70 69 63 74 75 72 65 2d | 6d 6f 76 65 6d 65 6e 74 |picture-|movement|
|00000ed0| 2d 73 65 20 23 5b 6e 69 | 6c 20 22 c0 c1 89 5c 22 |-se #[ni|l "...\"|
|00000ee0| 87 22 20 5b 70 69 63 74 | 75 72 65 2d 73 65 74 2d |." [pict|ure-set-|
|00000ef0| 6d 6f 74 69 6f 6e 20 31 | 5d 20 33 20 28 23 24 20 |motion 1|] 3 (#$ |
|00000f00| 2e 20 33 36 39 36 29 20 | 6e 69 6c 5d 29 0a 23 40 |. 3696) |nil]).#@|
|00000f10| 31 32 39 20 53 65 74 20 | 56 45 52 54 49 43 41 4c |129 Set |VERTICAL|
|00000f20| 20 61 6e 64 20 48 4f 52 | 49 5a 4f 4e 54 41 4c 20 | and HOR|IZONTAL |
|00000f30| 69 6e 63 72 65 6d 65 6e | 74 73 20 66 6f 72 20 6d |incremen|ts for m|
|00000f40| 6f 76 65 6d 65 6e 74 20 | 69 6e 20 50 69 63 74 75 |ovement |in Pictu|
|00000f50| 72 65 20 6d 6f 64 65 2e | 0a 54 68 65 20 6d 6f 64 |re mode.|.The mod|
|00000f60| 65 20 6c 69 6e 65 20 69 | 73 20 75 70 64 61 74 65 |e line i|s update|
|00000f70| 64 20 74 6f 20 72 65 66 | 6c 65 63 74 20 74 68 65 |d to ref|lect the|
|00000f80| 20 63 75 72 72 65 6e 74 | 20 64 69 72 65 63 74 69 | current| directi|
|00000f90| 6f 6e 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |on...(de|falias '|
|00000fa0| 70 69 63 74 75 72 65 2d | 73 65 74 2d 6d 6f 74 69 |picture-|set-moti|
|00000fb0| 6f 6e 20 23 5b 28 76 65 | 72 74 20 68 6f 72 69 7a |on #[(ve|rt horiz|
|00000fc0| 29 20 22 08 11 5c 6e 13 | c4 c5 5c 6e c6 a6 08 c6 |) "..\n.|..\n....|
|00000fd0| a6 54 c7 5f 5c 5c c8 5c | 5c c9 9b 40 5c 22 16 5c |.T._\\.\|\..@\".\|
|00000fe0| 6e cb 20 88 cc cd 21 87 | 22 20 5b 76 65 72 74 20 |n. ...!.|" [vert |
|00000ff0| 70 69 63 74 75 72 65 2d | 76 65 72 74 69 63 61 6c |picture-|vertical|
|00001000| 2d 73 74 65 70 20 68 6f | 72 69 7a 20 70 69 63 74 |-step ho|riz pict|
|00001010| 75 72 65 2d 68 6f 72 69 | 7a 6f 6e 74 61 6c 2d 73 |ure-hori|zontal-s|
|00001020| 74 65 70 20 66 6f 72 6d | 61 74 20 22 50 69 63 74 |tep form|at "Pict|
|00001030| 75 72 65 3a 25 73 22 20 | 32 20 33 20 31 20 28 6e |ure:%s" |2 3 1 (n|
|00001040| 77 20 75 70 20 6e 65 20 | 6c 65 66 74 20 6e 6f 6e |w up ne |left non|
|00001050| 65 20 72 69 67 68 74 20 | 73 77 20 64 6f 77 6e 20 |e right |sw down |
|00001060| 73 65 29 20 6d 6f 64 65 | 2d 6e 61 6d 65 20 66 6f |se) mode|-name fo|
|00001070| 72 63 65 2d 6d 6f 64 65 | 2d 6c 69 6e 65 2d 75 70 |rce-mode|-line-up|
|00001080| 64 61 74 65 20 6d 65 73 | 73 61 67 65 20 22 22 5d |date mes|sage ""]|
|00001090| 20 35 20 28 23 24 20 2e | 20 33 38 36 30 29 5d 29 | 5 (#$ .| 3860)])|
|000010a0| 0a 23 40 37 37 20 4d 6f | 76 65 20 69 6e 20 64 69 |.#@77 Mo|ve in di|
|000010b0| 72 65 63 74 69 6f 6e 20 | 6f 66 20 60 70 69 63 74 |rection |of `pict|
|000010c0| 75 72 65 2d 76 65 72 74 | 69 63 61 6c 2d 73 74 65 |ure-vert|ical-ste|
|000010d0| 70 27 20 61 6e 64 20 60 | 70 69 63 74 75 72 65 2d |p' and `|picture-|
|000010e0| 68 6f 72 69 7a 6f 6e 74 | 61 6c 2d 73 74 65 70 27 |horizont|al-step'|
|000010f0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 70 69 |...(defa|lias 'pi|
|00001100| 63 74 75 72 65 2d 6d 6f | 76 65 20 23 5b 6e 69 6c |cture-mo|ve #[nil|
|00001110| 20 22 c0 09 21 88 c2 0b | 21 87 22 20 5b 70 69 63 | "..!...|!." [pic|
|00001120| 74 75 72 65 2d 6d 6f 76 | 65 2d 64 6f 77 6e 20 70 |ture-mov|e-down p|
|00001130| 69 63 74 75 72 65 2d 76 | 65 72 74 69 63 61 6c 2d |icture-v|ertical-|
|00001140| 73 74 65 70 20 70 69 63 | 74 75 72 65 2d 66 6f 72 |step pic|ture-for|
|00001150| 77 61 72 64 2d 63 6f 6c | 75 6d 6e 20 70 69 63 74 |ward-col|umn pict|
|00001160| 75 72 65 2d 68 6f 72 69 | 7a 6f 6e 74 61 6c 2d 73 |ure-hori|zontal-s|
|00001170| 74 65 70 5d 20 32 20 28 | 23 24 20 2e 20 34 32 36 |tep] 2 (|#$ . 426|
|00001180| 32 29 5d 29 0a 23 40 32 | 35 39 20 4d 6f 76 65 20 |2)]).#@2|59 Move |
|00001190| 70 6f 69 6e 74 20 69 6e | 20 64 69 72 65 63 74 69 |point in| directi|
|000011a0| 6f 6e 20 6f 66 20 63 75 | 72 72 65 6e 74 20 70 69 |on of cu|rrent pi|
|000011b0| 63 74 75 72 65 20 6d 6f | 74 69 6f 6e 20 69 6e 20 |cture mo|tion in |
|000011c0| 50 69 63 74 75 72 65 20 | 6d 6f 64 65 2e 0a 57 69 |Picture |mode..Wi|
|000011d0| 74 68 20 41 52 47 20 64 | 6f 20 69 74 20 74 68 61 |th ARG d|o it tha|
|000011e0| 74 20 6d 61 6e 79 20 74 | 69 6d 65 73 2e 20 20 55 |t many t|imes.  U|
|000011f0| 73 65 66 75 6c 20 66 6f | 72 20 64 65 6c 69 6e 65 |seful fo|r deline|
|00001200| 61 74 69 6e 67 20 72 65 | 63 74 61 6e 67 6c 65 73 |ating re|ctangles|
|00001210| 20 69 6e 0a 63 6f 6e 6a | 75 6e 63 74 69 6f 6e 20 | in.conj|unction |
|00001220| 77 69 74 68 20 64 69 61 | 67 6f 6e 61 6c 20 70 69 |with dia|gonal pi|
|00001230| 63 74 75 72 65 20 6d 6f | 74 69 6f 6e 2e 0a 44 6f |cture mo|tion..Do|
|00001240| 20 5c 5b 63 6f 6d 6d 61 | 6e 64 2d 61 70 72 6f 70 | \[comma|nd-aprop|
|00001250| 6f 73 5d 20 20 70 69 63 | 74 75 72 65 2d 6d 6f 76 |os]  pic|ture-mov|
|00001260| 65 6d 65 6e 74 20 20 74 | 6f 20 73 65 65 20 63 6f |ement  t|o see co|
|00001270| 6d 6d 61 6e 64 73 20 77 | 68 69 63 68 20 63 6f 6e |mmands w|hich con|
|00001280| 74 72 6f 6c 20 6d 6f 74 | 69 6f 6e 2e 1f 0a 28 64 |trol mot|ion...(d|
|00001290| 65 66 61 6c 69 61 73 20 | 27 70 69 63 74 75 72 65 |efalias |'picture|
|000012a0| 2d 6d 6f 74 69 6f 6e 20 | 23 5b 28 61 72 67 29 20 |-motion |#[(arg) |
|000012b0| 22 c0 09 5c 6e 5f 21 88 | c3 09 5c 66 5f 21 87 22 |"..\n_!.|..\f_!."|
|000012c0| 20 5b 70 69 63 74 75 72 | 65 2d 6d 6f 76 65 2d 64 | [pictur|e-move-d|
|000012d0| 6f 77 6e 20 61 72 67 20 | 70 69 63 74 75 72 65 2d |own arg |picture-|
|000012e0| 76 65 72 74 69 63 61 6c | 2d 73 74 65 70 20 70 69 |vertical|-step pi|
|000012f0| 63 74 75 72 65 2d 66 6f | 72 77 61 72 64 2d 63 6f |cture-fo|rward-co|
|00001300| 6c 75 6d 6e 20 70 69 63 | 74 75 72 65 2d 68 6f 72 |lumn pic|ture-hor|
|00001310| 69 7a 6f 6e 74 61 6c 2d | 73 74 65 70 5d 20 33 20 |izontal-|step] 3 |
|00001320| 28 23 24 20 2e 20 34 34 | 39 31 29 20 22 70 22 5d |(#$ . 44|91) "p"]|
|00001330| 29 0a 23 40 32 36 38 20 | 4d 6f 76 65 20 70 6f 69 |).#@268 |Move poi|
|00001340| 6e 74 20 69 6e 20 64 69 | 72 65 63 74 69 6f 6e 20 |nt in di|rection |
|00001350| 6f 70 70 6f 73 69 74 65 | 20 6f 66 20 63 75 72 72 |opposite| of curr|
|00001360| 65 6e 74 20 70 69 63 74 | 75 72 65 20 6d 6f 74 69 |ent pict|ure moti|
|00001370| 6f 6e 20 69 6e 20 50 69 | 63 74 75 72 65 20 6d 6f |on in Pi|cture mo|
|00001380| 64 65 2e 0a 57 69 74 68 | 20 41 52 47 20 64 6f 20 |de..With| ARG do |
|00001390| 69 74 20 74 68 61 74 20 | 6d 61 6e 79 20 74 69 6d |it that |many tim|
|000013a0| 65 73 2e 20 20 55 73 65 | 66 75 6c 20 66 6f 72 20 |es.  Use|ful for |
|000013b0| 64 65 6c 69 6e 65 61 74 | 69 6e 67 20 72 65 63 74 |delineat|ing rect|
|000013c0| 61 6e 67 6c 65 73 20 69 | 6e 0a 63 6f 6e 6a 75 6e |angles i|n.conjun|
|000013d0| 63 74 69 6f 6e 20 77 69 | 74 68 20 64 69 61 67 6f |ction wi|th diago|
|000013e0| 6e 61 6c 20 70 69 63 74 | 75 72 65 20 6d 6f 74 69 |nal pict|ure moti|
|000013f0| 6f 6e 2e 0a 44 6f 20 5c | 5b 63 6f 6d 6d 61 6e 64 |on..Do \|[command|
|00001400| 2d 61 70 72 6f 70 6f 73 | 5d 20 60 70 69 63 74 75 |-apropos|] `pictu|
|00001410| 72 65 2d 6d 6f 76 65 6d | 65 6e 74 27 20 74 6f 20 |re-movem|ent' to |
|00001420| 73 65 65 20 63 6f 6d 6d | 61 6e 64 73 20 77 68 69 |see comm|ands whi|
|00001430| 63 68 20 63 6f 6e 74 72 | 6f 6c 20 6d 6f 74 69 6f |ch contr|ol motio|
|00001440| 6e 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 70 |n...(def|alias 'p|
|00001450| 69 63 74 75 72 65 2d 6d | 6f 74 69 6f 6e 2d 72 65 |icture-m|otion-re|
|00001460| 76 65 72 73 65 20 23 5b | 28 61 72 67 29 20 22 c0 |verse #[|(arg) ".|
|00001470| 09 5b 21 87 22 20 5b 70 | 69 63 74 75 72 65 2d 6d |.[!." [p|icture-m|
|00001480| 6f 74 69 6f 6e 20 61 72 | 67 5d 20 32 20 28 23 24 |otion ar|g] 2 (#$|
|00001490| 20 2e 20 34 39 32 30 29 | 20 22 70 22 5d 29 0a 23 | . 4920)| "p"]).#|
|000014a0| 40 32 37 31 20 49 6e 73 | 65 72 74 20 74 68 69 73 |@271 Ins|ert this|
|000014b0| 20 63 68 61 72 61 63 74 | 65 72 20 69 6e 20 70 6c | charact|er in pl|
|000014c0| 61 63 65 20 6f 66 20 63 | 68 61 72 61 63 74 65 72 |ace of c|haracter|
|000014d0| 20 70 72 65 76 69 6f 75 | 73 6c 79 20 61 74 20 74 | previou|sly at t|
|000014e0| 68 65 20 63 75 72 73 6f | 72 2e 0a 54 68 65 20 63 |he curso|r..The c|
|000014f0| 75 72 73 6f 72 20 74 68 | 65 6e 20 6d 6f 76 65 73 |ursor th|en moves|
|00001500| 20 69 6e 20 74 68 65 20 | 64 69 72 65 63 74 69 6f | in the |directio|
|00001510| 6e 20 79 6f 75 20 70 72 | 65 76 69 6f 75 73 6c 79 |n you pr|eviously|
|00001520| 20 73 70 65 63 69 66 69 | 65 64 0a 77 69 74 68 20 | specifi|ed.with |
|00001530| 74 68 65 20 63 6f 6d 6d | 61 6e 64 73 20 60 70 69 |the comm|ands `pi|
|00001540| 63 74 75 72 65 2d 6d 6f | 76 65 6d 65 6e 74 2d 72 |cture-mo|vement-r|
|00001550| 69 67 68 74 27 2c 20 60 | 70 69 63 74 75 72 65 2d |ight', `|picture-|
|00001560| 6d 6f 76 65 6d 65 6e 74 | 2d 75 70 27 2c 20 65 74 |movement|-up', et|
|00001570| 63 2e 0a 44 6f 20 5c 5b | 63 6f 6d 6d 61 6e 64 2d |c..Do \[|command-|
|00001580| 61 70 72 6f 70 6f 73 5d | 20 60 70 69 63 74 75 72 |apropos]| `pictur|
|00001590| 65 2d 6d 6f 76 65 6d 65 | 6e 74 27 20 74 6f 20 73 |e-moveme|nt' to s|
|000015a0| 65 65 20 74 68 6f 73 65 | 20 63 6f 6d 6d 61 6e 64 |ee those| command|
|000015b0| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 70 |s...(def|alias 'p|
|000015c0| 69 63 74 75 72 65 2d 73 | 65 6c 66 2d 69 6e 73 65 |icture-s|elf-inse|
|000015d0| 72 74 20 23 5b 28 61 72 | 67 29 20 22 08 c1 56 85 |rt #[(ar|g) "..V.|
|000015e0| 1e 00 08 53 10 c2 69 54 | 21 88 c3 c4 21 88 0d 63 |...S..iT|!...!..c|
|000015f0| 88 c4 75 88 c6 20 88 82 | 00 00 87 22 20 5b 61 72 |..u.. ..|..." [ar|
|00001600| 67 20 30 20 6d 6f 76 65 | 2d 74 6f 2d 63 6f 6c 75 |g 0 move|-to-colu|
|00001610| 6d 6e 2d 66 6f 72 63 65 | 20 64 65 6c 65 74 65 2d |mn-force| delete-|
|00001620| 63 68 61 72 20 2d 31 20 | 6c 61 73 74 2d 63 6f 6d |char -1 |last-com|
|00001630| 6d 61 6e 64 2d 65 76 65 | 6e 74 20 70 69 63 74 75 |mand-eve|nt pictu|
|00001640| 72 65 2d 6d 6f 76 65 5d | 20 32 20 28 23 24 20 2e |re-move]| 2 (#$ .|
|00001650| 20 35 32 38 35 29 20 22 | 70 22 5d 29 0a 23 40 35 | 5285) "|p"]).#@5|
|00001660| 31 20 43 6c 65 61 72 20 | 6f 75 74 20 41 52 47 20 |1 Clear |out ARG |
|00001670| 63 6f 6c 75 6d 6e 73 20 | 61 66 74 65 72 20 70 6f |columns |after po|
|00001680| 69 6e 74 20 77 69 74 68 | 6f 75 74 20 6d 6f 76 69 |int with|out movi|
|00001690| 6e 67 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ng...(de|falias '|
|000016a0| 70 69 63 74 75 72 65 2d | 63 6c 65 61 72 2d 63 6f |picture-|clear-co|
|000016b0| 6c 75 6d 6e 20 23 5b 28 | 61 72 67 29 20 22 60 18 |lumn #[(|arg) "`.|
|000016c0| 69 89 19 5c 6e 5c 5c 1b | c4 0b 21 88 08 60 7c 88 |i..\n\\.|..!..`|.|
|000016d0| 8a 0b 09 5d 6a 2c 87 22 | 20 5b 6f 70 6f 69 6e 74 |...]j,."| [opoint|
|000016e0| 20 6f 72 69 67 69 6e 61 | 6c 2d 63 6f 6c 20 61 72 | origina|l-col ar|
|000016f0| 67 20 74 61 72 67 65 74 | 2d 63 6f 6c 20 6d 6f 76 |g target|-col mov|
|00001700| 65 2d 74 6f 2d 63 6f 6c | 75 6d 6e 2d 66 6f 72 63 |e-to-col|umn-forc|
|00001710| 65 5d 20 33 20 28 23 24 | 20 2e 20 35 37 33 30 29 |e] 3 (#$| . 5730)|
|00001720| 20 22 70 22 5d 29 0a 23 | 40 36 30 20 43 6c 65 61 | "p"]).#|@60 Clea|
|00001730| 72 20 6f 75 74 20 41 52 | 47 20 63 6f 6c 75 6d 6e |r out AR|G column|
|00001740| 73 20 62 65 66 6f 72 65 | 20 70 6f 69 6e 74 2c 20 |s before| point, |
|00001750| 6d 6f 76 69 6e 67 20 62 | 61 63 6b 20 6f 76 65 72 |moving b|ack over|
|00001760| 20 74 68 65 6d 2e 1f 0a | 28 64 65 66 61 6c 69 61 | them...|(defalia|
|00001770| 73 20 27 70 69 63 74 75 | 72 65 2d 62 61 63 6b 77 |s 'pictu|re-backw|
|00001780| 61 72 64 2d 63 6c 65 61 | 72 2d 63 6f 6c 75 6d 6e |ard-clea|r-column|
|00001790| 20 23 5b 28 61 72 67 29 | 20 22 c0 09 5b 21 87 22 | #[(arg)| "..[!."|
|000017a0| 20 5b 70 69 63 74 75 72 | 65 2d 63 6c 65 61 72 2d | [pictur|e-clear-|
|000017b0| 63 6f 6c 75 6d 6e 20 61 | 72 67 5d 20 32 20 28 23 |column a|rg] 2 (#|
|000017c0| 24 20 2e 20 35 39 33 32 | 29 20 22 70 22 5d 29 0a |$ . 5932|) "p"]).|
|000017d0| 23 40 32 31 39 20 43 6c | 65 61 72 20 6f 75 74 20 |#@219 Cl|ear out |
|000017e0| 72 65 73 74 20 6f 66 20 | 6c 69 6e 65 3b 20 69 66 |rest of |line; if|
|000017f0| 20 61 74 20 65 6e 64 20 | 6f 66 20 6c 69 6e 65 2c | at end |of line,|
|00001800| 20 61 64 76 61 6e 63 65 | 20 74 6f 20 6e 65 78 74 | advance| to next|
|00001810| 20 6c 69 6e 65 2e 0a 43 | 6c 65 61 72 65 64 2d 6f | line..C|leared-o|
|00001820| 75 74 20 6c 69 6e 65 20 | 74 65 78 74 20 67 6f 65 |ut line |text goe|
|00001830| 73 20 69 6e 74 6f 20 74 | 68 65 20 6b 69 6c 6c 20 |s into t|he kill |
|00001840| 72 69 6e 67 2c 20 61 73 | 20 64 6f 20 6e 65 77 6c |ring, as| do newl|
|00001850| 69 6e 65 73 20 74 68 61 | 74 20 61 72 65 0a 61 64 |ines tha|t are.ad|
|00001860| 76 61 6e 63 65 64 20 6f | 76 65 72 2e 20 20 57 69 |vanced o|ver.  Wi|
|00001870| 74 68 20 61 72 67 75 6d | 65 6e 74 2c 20 63 6c 65 |th argum|ent, cle|
|00001880| 61 72 20 6f 75 74 20 28 | 61 6e 64 20 73 61 76 65 |ar out (|and save|
|00001890| 20 69 6e 20 6b 69 6c 6c | 20 72 69 6e 67 29 20 74 | in kill| ring) t|
|000018a0| 68 61 74 0a 6d 61 6e 79 | 20 6c 69 6e 65 73 2e 1f |hat.many| lines..|
|000018b0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 70 69 63 74 |.(defali|as 'pict|
|000018c0| 75 72 65 2d 63 6c 65 61 | 72 2d 6c 69 6e 65 20 23 |ure-clea|r-line #|
|000018d0| 5b 28 61 72 67 29 20 22 | 08 83 1b 00 c1 08 21 10 |[(arg) "|......!.|
|000018e0| c2 08 21 88 c3 08 c4 56 | 83 17 00 08 82 19 00 08 |..!....V|........|
|000018f0| 5b 21 87 c5 c6 21 83 29 | 00 c7 60 c8 79 88 60 5c |[!...!.)|..`.y.`\|
|00001900| 22 87 c9 60 ca 7f 88 60 | 5c 22 87 22 20 5b 61 72 |"..`...`|\"." [ar|
|00001910| 67 20 70 72 65 66 69 78 | 2d 6e 75 6d 65 72 69 63 |g prefix|-numeric|
|00001920| 2d 76 61 6c 75 65 20 6b | 69 6c 6c 2d 6c 69 6e 65 |-value k|ill-line|
|00001930| 20 6e 65 77 6c 69 6e 65 | 20 30 20 6c 6f 6f 6b 69 | newline| 0 looki|
|00001940| 6e 67 2d 61 74 20 22 5b | 20 09 5d 2a 24 22 20 6b |ng-at "[| .]*$" k|
|00001950| 69 6c 6c 2d 72 69 6e 67 | 2d 73 61 76 65 20 31 20 |ill-ring|-save 1 |
|00001960| 6b 69 6c 6c 2d 72 65 67 | 69 6f 6e 20 6e 69 6c 5d |kill-reg|ion nil]|
|00001970| 20 33 20 28 23 24 20 2e | 20 36 31 30 32 29 20 22 | 3 (#$ .| 6102) "|
|00001980| 50 22 5d 29 0a 23 40 31 | 35 32 20 4d 6f 76 65 20 |P"]).#@1|52 Move |
|00001990| 74 6f 20 74 68 65 20 62 | 65 67 69 6e 6e 69 6e 67 |to the b|eginning|
|000019a0| 20 6f 66 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e | of the |followin|
|000019b0| 67 20 6c 69 6e 65 2e 0a | 57 69 74 68 20 61 72 67 |g line..|With arg|
|000019c0| 75 6d 65 6e 74 2c 20 6d | 6f 76 65 73 20 74 68 61 |ument, m|oves tha|
|000019d0| 74 20 6d 61 6e 79 20 6c | 69 6e 65 73 20 28 75 70 |t many l|ines (up|
|000019e0| 2c 20 69 66 20 6e 65 67 | 61 74 69 76 65 20 61 72 |, if neg|ative ar|
|000019f0| 67 75 6d 65 6e 74 29 3b | 0a 61 6c 77 61 79 73 20 |gument);|.always |
|00001a00| 6d 6f 76 65 73 20 74 6f | 20 74 68 65 20 62 65 67 |moves to| the beg|
|00001a10| 69 6e 6e 69 6e 67 20 6f | 66 20 61 20 6c 69 6e 65 |inning o|f a line|
|00001a20| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 70 69 |...(defa|lias 'pi|
|00001a30| 63 74 75 72 65 2d 6e 65 | 77 6c 69 6e 65 20 23 5b |cture-ne|wline #[|
|00001a40| 28 61 72 67 29 20 22 08 | c1 57 83 5c 66 00 08 79 |(arg) ".|.W.\f..y|
|00001a50| 88 82 29 00 08 c1 56 83 | 29 00 c2 7f 88 6d 83 1f |..)...V.|)....m..|
|00001a60| 00 c3 20 88 82 5c 22 00 | c4 75 88 08 53 89 10 82 |.. ..\".|.u..S...|
|00001a70| 0d 00 c5 20 87 22 20 5b | 61 72 67 20 30 20 6e 69 |... ." [|arg 0 ni|
|00001a80| 6c 20 6e 65 77 6c 69 6e | 65 20 31 20 68 73 63 72 |l newlin|e 1 hscr|
|00001a90| 6f 6c 6c 2d 70 6f 69 6e | 74 2d 76 69 73 69 62 6c |oll-poin|t-visibl|
|00001aa0| 65 5d 20 33 20 28 23 24 | 20 2e 20 36 35 33 39 29 |e] 3 (#$| . 6539)|
|00001ab0| 20 22 70 22 5d 29 0a 23 | 40 39 33 20 49 6e 73 65 | "p"]).#|@93 Inse|
|00001ac0| 72 74 20 61 6e 20 65 6d | 70 74 79 20 6c 69 6e 65 |rt an em|pty line|
|00001ad0| 20 61 66 74 65 72 20 74 | 68 65 20 63 75 72 72 65 | after t|he curre|
|00001ae0| 6e 74 20 6c 69 6e 65 2e | 0a 57 69 74 68 20 70 6f |nt line.|.With po|
|00001af0| 73 69 74 69 76 65 20 61 | 72 67 75 6d 65 6e 74 20 |sitive a|rgument |
|00001b00| 69 6e 73 65 72 74 20 74 | 68 61 74 20 6d 61 6e 79 |insert t|hat many|
|00001b10| 20 6c 69 6e 65 73 2e 1f | 0a 28 64 65 66 61 6c 69 | lines..|.(defali|
|00001b20| 61 73 20 27 70 69 63 74 | 75 72 65 2d 6f 70 65 6e |as 'pict|ure-open|
|00001b30| 2d 6c 69 6e 65 20 23 5b | 28 61 72 67 29 20 22 8a |-line #[|(arg) ".|
|00001b40| c0 7f 88 c1 5c 6e 21 88 | 29 c3 20 87 22 20 5b 6e |....\n!.|). ." [n|
|00001b50| 69 6c 20 6f 70 65 6e 2d | 6c 69 6e 65 20 61 72 67 |il open-|line arg|
|00001b60| 20 68 73 63 72 6f 6c 6c | 2d 70 6f 69 6e 74 2d 76 | hscroll|-point-v|
|00001b70| 69 73 69 62 6c 65 5d 20 | 32 20 28 23 24 20 2e 20 |isible] |2 (#$ . |
|00001b80| 36 38 34 34 29 20 22 70 | 22 5d 29 0a 23 40 35 31 |6844) "p|"]).#@51|
|00001b90| 20 49 6e 73 65 72 74 20 | 61 20 64 75 70 6c 69 63 | Insert |a duplic|
|00001ba0| 61 74 65 20 6f 66 20 74 | 68 65 20 63 75 72 72 65 |ate of t|he curre|
|00001bb0| 6e 74 20 6c 69 6e 65 2c | 20 62 65 6c 6f 77 20 69 |nt line,| below i|
|00001bc0| 74 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 70 |t...(def|alias 'p|
|00001bd0| 69 63 74 75 72 65 2d 64 | 75 70 6c 69 63 61 74 65 |icture-d|uplicate|
|00001be0| 2d 6c 69 6e 65 20 23 5b | 6e 69 6c 20 22 8a c0 79 |-line #[|nil "..y|
|00001bf0| 88 60 c1 c2 21 88 60 7b | 1b c4 79 88 0b 63 2a 87 |.`..!.`{|..y..c*.|
|00001c00| 22 20 5b 30 20 70 69 63 | 74 75 72 65 2d 6e 65 77 |" [0 pic|ture-new|
|00001c10| 6c 69 6e 65 20 31 20 63 | 6f 6e 74 65 6e 74 73 20 |line 1 c|ontents |
|00001c20| 2d 31 5d 20 33 20 28 23 | 24 20 2e 20 37 30 35 37 |-1] 3 (#|$ . 7057|
|00001c30| 29 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |) nil]).|(defalia|
|00001c40| 73 20 27 70 69 63 74 75 | 72 65 2d 72 65 70 6c 61 |s 'pictu|re-repla|
|00001c50| 63 65 2d 6d 61 74 63 68 | 20 23 5b 28 6e 65 77 74 |ce-match| #[(newt|
|00001c60| 65 78 74 20 66 69 78 65 | 64 63 61 73 65 20 6c 69 |ext fixe|dcase li|
|00001c70| 74 65 72 61 6c 29 20 22 | c0 89 89 19 1a 1b c4 95 |teral) "|........|
|00001c80| 89 11 62 88 69 13 c0 89 | 1d 1e 06 c7 0e 08 0e 09 |..b.i...|........|
|00001c90| 0e 5c 6e 23 88 69 0b 5a | 12 0e 06 89 15 83 30 00 |.\n#.i.Z|......0.|
|00001ca0| cb cc 0d 5c 22 89 15 84 | 27 00 2a 09 62 88 5c 6e |...\"...|'.*.b.\n|
|00001cb0| c4 56 83 44 00 60 cd 5c | 6e 69 5c 5c 21 88 60 7c |.V.D.`.\|ni\\!.`||
|00001cc0| 88 c7 0e 08 0e 09 0e 5c | 6e 23 88 5c 6e c4 57 85 |.......\|n#.\n.W.|
|00001cd0| 58 00 ce cf 5c 6e 5b 5c | 22 2b 87 22 20 5b 6e 69 |X...\n[\|"+." [ni|
|00001ce0| 6c 20 70 6f 73 20 63 68 | 61 6e 67 65 20 6f 63 6f |l pos ch|ange oco|
|00001cf0| 6c 75 6d 6e 20 30 20 6c | 69 73 74 31 20 62 75 66 |lumn 0 l|ist1 buf|
|00001d00| 66 65 72 2d 75 6e 64 6f | 2d 6c 69 73 74 20 72 65 |fer-undo|-list re|
|00001d10| 70 6c 61 63 65 2d 6d 61 | 74 63 68 20 6e 65 77 74 |place-ma|tch newt|
|00001d20| 65 78 74 20 66 69 78 65 | 64 63 61 73 65 20 6c 69 |ext fixe|dcase li|
|00001d30| 74 65 72 61 6c 20 70 72 | 69 6d 69 74 69 76 65 2d |teral pr|imitive-|
|00001d40| 75 6e 64 6f 20 31 20 6d | 6f 76 65 2d 74 6f 2d 63 |undo 1 m|ove-to-c|
|00001d50| 6f 6c 75 6d 6e 2d 66 6f | 72 63 65 20 69 6e 73 65 |olumn-fo|rce inse|
|00001d60| 72 74 2d 63 68 61 72 20 | 33 32 5d 20 35 5d 29 0a |rt-char |32] 5]).|
|00001d70| 23 40 31 31 38 30 20 2a | 41 20 63 68 61 72 61 63 |#@1180 *|A charac|
|00001d80| 74 65 72 20 73 65 74 20 | 77 68 69 63 68 20 63 6f |ter set |which co|
|00001d90| 6e 74 72 6f 6c 73 20 62 | 65 68 61 76 69 6f 72 20 |ntrols b|ehavior |
|00001da0| 6f 66 20 63 6f 6d 6d 61 | 6e 64 73 0a 5c 5b 70 69 |of comma|nds.\[pi|
|00001db0| 63 74 75 72 65 2d 73 65 | 74 2d 74 61 62 2d 73 74 |cture-se|t-tab-st|
|00001dc0| 6f 70 73 5d 20 61 6e 64 | 20 5c 5b 70 69 63 74 75 |ops] and| \[pictu|
|00001dd0| 72 65 2d 74 61 62 2d 73 | 65 61 72 63 68 5d 2e 20 |re-tab-s|earch]. |
|00001de0| 20 49 74 20 69 73 20 4e | 4f 54 20 61 0a 72 65 67 | It is N|OT a.reg|
|00001df0| 75 6c 61 72 20 65 78 70 | 72 65 73 73 69 6f 6e 2c |ular exp|ression,|
|00001e00| 20 61 6e 79 20 72 65 67 | 65 78 70 20 73 70 65 63 | any reg|exp spec|
|00001e10| 69 61 6c 20 63 68 61 72 | 61 63 74 65 72 73 20 77 |ial char|acters w|
|00001e20| 69 6c 6c 20 62 65 20 71 | 75 6f 74 65 64 2e 0a 49 |ill be q|uoted..I|
|00001e30| 74 20 64 65 66 69 6e 65 | 73 20 61 20 73 65 74 20 |t define|s a set |
|00001e40| 6f 66 20 22 69 6e 74 65 | 72 65 73 74 69 6e 67 20 |of "inte|resting |
|00001e50| 63 68 61 72 61 63 74 65 | 72 73 22 20 74 6f 20 6c |characte|rs" to l|
|00001e60| 6f 6f 6b 20 66 6f 72 20 | 77 68 65 6e 20 73 65 74 |ook for |when set|
|00001e70| 74 69 6e 67 0a 28 6f 72 | 20 73 65 61 72 63 68 69 |ting.(or| searchi|
|00001e80| 6e 67 20 66 6f 72 29 20 | 74 61 62 20 73 74 6f 70 |ng for) |tab stop|
|00001e90| 73 2c 20 69 6e 69 74 69 | 61 6c 6c 79 20 22 21 2d |s, initi|ally "!-|
|00001ea0| 7e 22 20 28 61 6c 6c 20 | 70 72 69 6e 74 69 6e 67 |~" (all |printing|
|00001eb0| 20 63 68 61 72 61 63 74 | 65 72 73 29 2e 0a 46 6f | charact|ers)..Fo|
|00001ec0| 72 20 65 78 61 6d 70 6c | 65 2c 20 73 75 70 70 6f |r exampl|e, suppo|
|00001ed0| 73 65 20 74 68 61 74 20 | 79 6f 75 20 61 72 65 20 |se that |you are |
|00001ee0| 65 64 69 74 69 6e 67 20 | 61 20 74 61 62 6c 65 20 |editing |a table |
|00001ef0| 77 68 69 63 68 20 69 73 | 20 66 6f 72 6d 61 74 74 |which is| formatt|
|00001f00| 65 64 20 74 68 75 73 3a | 0a 7c 20 66 6f 6f 09 09 |ed thus:|.| foo..|
|00001f10| 7c 20 62 61 72 20 2b 20 | 62 61 7a 20 7c 20 32 33 || bar + |baz | 23|
|00001f20| 20 20 2a 0a 7c 20 62 75 | 62 62 6c 65 73 09 7c 20 |  *.| bu|bbles.| |
|00001f30| 61 6e 64 20 2b 20 65 74 | 63 20 7c 20 39 37 20 20 |and + et|c | 97  |
|00001f40| 2a 0a 61 6e 64 20 74 68 | 61 74 20 60 70 69 63 74 |*.and th|at `pict|
|00001f50| 75 72 65 2d 74 61 62 2d | 63 68 61 72 73 27 20 69 |ure-tab-|chars' i|
|00001f60| 73 20 22 7c 2b 2a 22 2e | 20 20 54 68 65 6e 20 69 |s "|+*".|  Then i|
|00001f70| 6e 76 6f 6b 69 6e 67 0a | 5c 5b 70 69 63 74 75 72 |nvoking.|\[pictur|
|00001f80| 65 2d 73 65 74 2d 74 61 | 62 2d 73 74 6f 70 73 5d |e-set-ta|b-stops]|
|00001f90| 20 6f 6e 20 65 69 74 68 | 65 72 20 6f 66 20 74 68 | on eith|er of th|
|00001fa0| 65 20 70 72 65 76 69 6f | 75 73 20 6c 69 6e 65 73 |e previo|us lines|
|00001fb0| 20 77 6f 75 6c 64 20 72 | 65 73 75 6c 74 0a 69 6e | would r|esult.in|
|00001fc0| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 74 | the fol|lowing t|
|00001fd0| 61 62 20 73 74 6f 70 73 | 0a 09 09 3a 20 20 20 20 |ab stops|...:    |
|00001fe0| 20 3a 20 20 20 20 20 3a | 20 20 20 20 20 3a 0a 41 | :     :|     :.A|
|00001ff0| 6e 6f 74 68 65 72 20 65 | 78 61 6d 70 6c 65 20 2d |nother e|xample -|
|00002000| 20 22 41 2d 5a 61 2d 7a | 30 2d 39 22 20 77 6f 75 | "A-Za-z|0-9" wou|
|00002010| 6c 64 20 70 72 6f 64 75 | 63 65 20 74 68 65 20 74 |ld produ|ce the t|
|00002020| 61 62 20 73 74 6f 70 73 | 0a 20 20 3a 09 09 20 20 |ab stops|.  :..  |
|00002030| 3a 09 3a 20 20 20 20 20 | 3a 0a 0a 4e 6f 74 65 20 |:.:     |:..Note |
|00002040| 74 68 61 74 20 69 66 20 | 79 6f 75 20 77 61 6e 74 |that if |you want|
|00002050| 20 74 68 65 20 63 68 61 | 72 61 63 74 65 72 20 60 | the cha|racter `|
|00002060| 2d 27 20 74 6f 20 62 65 | 20 69 6e 20 74 68 65 20 |-' to be| in the |
|00002070| 73 65 74 2c 20 69 74 20 | 6d 75 73 74 20 62 65 0a |set, it |must be.|
|00002080| 69 6e 63 6c 75 64 65 64 | 20 69 6e 20 61 20 72 61 |included| in a ra|
|00002090| 6e 67 65 20 6f 72 20 65 | 6c 73 65 20 61 70 70 65 |nge or e|lse appe|
|000020a0| 61 72 20 69 6e 20 61 20 | 63 6f 6e 74 65 78 74 20 |ar in a |context |
|000020b0| 77 68 65 72 65 20 69 74 | 20 63 61 6e 6e 6f 74 20 |where it| cannot |
|000020c0| 62 65 0a 74 61 6b 65 6e | 20 66 6f 72 20 69 6e 64 |be.taken| for ind|
|000020d0| 69 63 61 74 69 6e 67 20 | 61 20 72 61 6e 67 65 20 |icating |a range |
|000020e0| 28 65 2e 67 2e 20 22 2d | 41 2d 5a 22 20 64 65 63 |(e.g. "-|A-Z" dec|
|000020f0| 6c 61 72 65 73 20 74 68 | 65 20 73 65 74 20 74 6f |lares th|e set to|
|00002100| 20 62 65 20 74 68 65 0a | 6c 65 74 74 65 72 73 20 | be the.|letters |
|00002110| 60 41 27 20 74 68 72 6f | 75 67 68 20 60 5a 27 20 |`A' thro|ugh `Z' |
|00002120| 61 6e 64 20 74 68 65 20 | 63 68 61 72 61 63 74 65 |and the |characte|
|00002130| 72 20 60 2d 27 29 2e 20 | 20 49 66 20 79 6f 75 20 |r `-'). | If you |
|00002140| 77 61 6e 74 20 74 68 65 | 0a 63 68 61 72 61 63 74 |want the|.charact|
|00002150| 65 72 20 60 5c 27 20 69 | 6e 20 74 68 65 20 73 65 |er `\' i|n the se|
|00002160| 74 20 69 74 20 6d 75 73 | 74 20 62 65 20 70 72 65 |t it mus|t be pre|
|00002170| 63 65 64 65 64 20 62 79 | 20 69 74 73 65 6c 66 3a |ceded by| itself:|
|00002180| 20 22 5c 5c 22 2e 0a 0a | 54 68 65 20 63 6f 6d 6d | "\\"...|The comm|
|00002190| 61 6e 64 20 5c 5b 70 69 | 63 74 75 72 65 2d 74 61 |and \[pi|cture-ta|
|000021a0| 62 2d 73 65 61 72 63 68 | 5d 20 69 73 20 64 65 66 |b-search|] is def|
|000021b0| 69 6e 65 64 20 74 6f 20 | 6d 6f 76 65 20 62 65 6e |ined to |move ben|
|000021c0| 65 61 74 68 20 28 6f 72 | 20 74 6f 29 20 61 0a 63 |eath (or| to) a.c|
|000021d0| 68 61 72 61 63 74 65 72 | 20 62 65 6c 6f 6e 67 69 |haracter| belongi|
|000021e0| 6e 67 20 74 6f 20 74 68 | 69 73 20 73 65 74 20 69 |ng to th|is set i|
|000021f0| 6e 64 65 70 65 6e 64 65 | 6e 74 20 6f 66 20 74 68 |ndepende|nt of th|
|00002200| 65 20 74 61 62 20 73 74 | 6f 70 73 20 6c 69 73 74 |e tab st|ops list|
|00002210| 2e 1f 0a 28 64 65 66 76 | 61 72 20 70 69 63 74 75 |...(defv|ar pictu|
|00002220| 72 65 2d 74 61 62 2d 63 | 68 61 72 73 20 22 21 2d |re-tab-c|hars "!-|
|00002230| 7e 22 20 28 23 24 20 2e | 20 2d 37 35 34 33 29 29 |~" (#$ .| -7543))|
|00002240| 0a 23 40 34 37 37 20 53 | 65 74 20 76 61 6c 75 65 |.#@477 S|et value|
|00002250| 20 6f 66 20 60 74 61 62 | 2d 73 74 6f 70 2d 6c 69 | of `tab|-stop-li|
|00002260| 73 74 27 20 61 63 63 6f | 72 64 69 6e 67 20 74 6f |st' acco|rding to|
|00002270| 20 63 6f 6e 74 65 78 74 | 20 6f 66 20 74 68 69 73 | context| of this|
|00002280| 20 6c 69 6e 65 2e 0a 54 | 68 69 73 20 63 6f 6e 74 | line..T|his cont|
|00002290| 72 6f 6c 73 20 74 68 65 | 20 62 65 68 61 76 69 6f |rols the| behavio|
|000022a0| 72 20 6f 66 20 5c 5b 70 | 69 63 74 75 72 65 2d 74 |r of \[p|icture-t|
|000022b0| 61 62 5d 2e 20 20 41 20 | 74 61 62 20 73 74 6f 70 |ab].  A |tab stop|
|000022c0| 20 69 73 20 73 65 74 20 | 61 74 0a 65 76 65 72 79 | is set |at.every|
|000022d0| 20 63 6f 6c 75 6d 6e 20 | 6f 63 63 75 70 69 65 64 | column |occupied|
|000022e0| 20 62 79 20 61 6e 20 22 | 69 6e 74 65 72 65 73 74 | by an "|interest|
|000022f0| 69 6e 67 20 63 68 61 72 | 61 63 74 65 72 22 20 74 |ing char|acter" t|
|00002300| 68 61 74 20 69 73 20 70 | 72 65 63 65 64 65 64 0a |hat is p|receded.|
|00002310| 62 79 20 77 68 69 74 65 | 73 70 61 63 65 2e 20 20 |by white|space.  |
|00002320| 49 6e 74 65 72 65 73 74 | 69 6e 67 20 63 68 61 72 |Interest|ing char|
|00002330| 61 63 74 65 72 73 20 61 | 72 65 20 64 65 66 69 6e |acters a|re defin|
|00002340| 65 64 20 62 79 20 74 68 | 65 20 76 61 72 69 61 62 |ed by th|e variab|
|00002350| 6c 65 0a 60 70 69 63 74 | 75 72 65 2d 74 61 62 2d |le.`pict|ure-tab-|
|00002360| 63 68 61 72 73 27 2c 20 | 73 65 65 20 69 74 73 20 |chars', |see its |
|00002370| 64 6f 63 75 6d 65 6e 74 | 61 74 69 6f 6e 20 66 6f |document|ation fo|
|00002380| 72 20 61 6e 20 65 78 61 | 6d 70 6c 65 20 6f 66 20 |r an exa|mple of |
|00002390| 75 73 61 67 65 2e 0a 57 | 69 74 68 20 41 52 47 2c |usage..W|ith ARG,|
|000023a0| 20 6a 75 73 74 20 28 72 | 65 29 73 65 74 20 60 74 | just (r|e)set `t|
|000023b0| 61 62 2d 73 74 6f 70 2d | 6c 69 73 74 27 20 74 6f |ab-stop-|list' to|
|000023c0| 20 69 74 73 20 64 65 66 | 61 75 6c 74 20 76 61 6c | its def|ault val|
|000023d0| 75 65 2e 20 20 54 68 65 | 20 74 61 62 0a 73 74 6f |ue.  The| tab.sto|
|000023e0| 70 73 20 63 6f 6d 70 75 | 74 65 64 20 61 72 65 20 |ps compu|ted are |
|000023f0| 64 69 73 70 6c 61 79 65 | 64 20 69 6e 20 74 68 65 |displaye|d in the|
|00002400| 20 6d 69 6e 69 62 75 66 | 66 65 72 20 77 69 74 68 | minibuf|fer with|
|00002410| 20 60 3a 27 20 61 74 20 | 65 61 63 68 20 73 74 6f | `:' at |each sto|
|00002420| 70 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 70 |p...(def|alias 'p|
|00002430| 69 63 74 75 72 65 2d 73 | 65 74 2d 74 61 62 2d 73 |icture-s|et-tab-s|
|00002440| 74 6f 70 73 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |tops #[(|&optiona|
|00002450| 6c 20 61 72 67 29 20 22 | 8a c0 19 5c 6e 83 0e 00 |l arg) "|...\n...|
|00002460| c3 c4 21 11 82 42 00 c5 | c6 0e 07 21 c8 51 1e 09 |..!..B..|...!.Q..|
|00002470| ca 79 88 60 1e 0b c0 7f | 88 cc 0e 09 0e 0b cd 23 |.y.`....|.......#|
|00002480| 83 35 00 ce c0 77 88 69 | 09 42 11 82 20 00 09 84 |.5...w.i|.B.. ...|
|00002490| 41 00 cf d0 c6 0e 07 21 | 5c 22 88 2a 09 14 d1 09 |A......!|\".*....|
|000024a0| 47 53 09 38 54 d2 5c 22 | 1e 13 09 83 61 00 0e 13 |GS.8T.\"|....a...|
|000024b0| 09 40 d4 49 88 09 41 89 | 11 84 53 00 d5 0e 13 21 |.@.I..A.|..S....!|
|000024c0| 2b 87 22 20 5b 6e 69 6c | 20 74 61 62 73 20 61 72 |+." [nil| tabs ar|
|000024d0| 67 20 64 65 66 61 75 6c | 74 2d 76 61 6c 75 65 20 |g defaul|t-value |
|000024e0| 74 61 62 2d 73 74 6f 70 | 2d 6c 69 73 74 20 22 5b |tab-stop|-list "[|
|000024f0| 20 09 5d 2b 5b 22 20 72 | 65 67 65 78 70 2d 71 75 | .]+[" r|egexp-qu|
|00002500| 6f 74 65 20 70 69 63 74 | 75 72 65 2d 74 61 62 2d |ote pict|ure-tab-|
|00002510| 63 68 61 72 73 20 22 5d | 22 20 72 65 67 65 78 70 |chars "]|" regexp|
|00002520| 20 30 20 62 6f 6c 20 72 | 65 2d 73 65 61 72 63 68 | 0 bol r|e-search|
|00002530| 2d 62 61 63 6b 77 61 72 | 64 20 74 20 22 20 09 22 |-backwar|d t " ."|
|00002540| 20 65 72 72 6f 72 20 22 | 4e 6f 20 63 68 61 72 61 | error "|No chara|
|00002550| 63 74 65 72 73 20 69 6e | 20 73 65 74 20 25 73 20 |cters in| set %s |
|00002560| 6f 6e 20 74 68 69 73 20 | 6c 69 6e 65 2e 22 20 6d |on this |line." m|
|00002570| 61 6b 65 2d 73 74 72 69 | 6e 67 20 33 32 20 62 6c |ake-stri|ng 32 bl|
|00002580| 75 72 62 20 35 38 20 6d | 65 73 73 61 67 65 5d 20 |urb 58 m|essage] |
|00002590| 35 20 28 23 24 20 2e 20 | 38 37 37 35 29 20 22 50 |5 (#$ . |8775) "P|
|000025a0| 22 5d 29 0a 23 40 33 31 | 36 20 4d 6f 76 65 20 74 |"]).#@31|6 Move t|
|000025b0| 6f 20 63 6f 6c 75 6d 6e | 20 62 65 6e 65 61 74 68 |o column| beneath|
|000025c0| 20 6e 65 78 74 20 69 6e | 74 65 72 65 73 74 69 6e | next in|terestin|
|000025d0| 67 20 63 68 61 72 20 69 | 6e 20 70 72 65 76 69 6f |g char i|n previo|
|000025e0| 75 73 20 6c 69 6e 65 2e | 0a 57 69 74 68 20 41 52 |us line.|.With AR|
|000025f0| 47 20 6d 6f 76 65 20 74 | 6f 20 63 6f 6c 75 6d 6e |G move t|o column|
|00002600| 20 6f 63 63 75 70 69 65 | 64 20 62 79 20 6e 65 78 | occupie|d by nex|
|00002610| 74 20 69 6e 74 65 72 65 | 73 74 69 6e 67 20 63 68 |t intere|sting ch|
|00002620| 61 72 61 63 74 65 72 20 | 69 6e 20 74 68 69 73 0a |aracter |in this.|
|00002630| 6c 69 6e 65 2e 20 20 54 | 68 65 20 63 68 61 72 61 |line.  T|he chara|
|00002640| 63 74 65 72 20 6d 75 73 | 74 20 62 65 20 70 72 65 |cter mus|t be pre|
|00002650| 63 65 64 65 64 20 62 79 | 20 77 68 69 74 65 73 70 |ceded by| whitesp|
|00002660| 61 63 65 2e 0a 22 69 6e | 74 65 72 65 73 74 69 6e |ace.."in|terestin|
|00002670| 67 20 63 68 61 72 61 63 | 74 65 72 73 22 20 61 72 |g charac|ters" ar|
|00002680| 65 20 64 65 66 69 6e 65 | 64 20 62 79 20 76 61 72 |e define|d by var|
|00002690| 69 61 62 6c 65 20 60 70 | 69 63 74 75 72 65 2d 74 |iable `p|icture-t|
|000026a0| 61 62 2d 63 68 61 72 73 | 27 2e 0a 49 66 20 6e 6f |ab-chars|'..If no|
|000026b0| 20 73 75 63 68 20 63 68 | 61 72 61 63 74 65 72 20 | such ch|aracter |
|000026c0| 69 73 20 66 6f 75 6e 64 | 2c 20 6d 6f 76 65 20 74 |is found|, move t|
|000026d0| 6f 20 62 65 67 69 6e 6e | 69 6e 67 20 6f 66 20 6c |o beginn|ing of l|
|000026e0| 69 6e 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ine...(d|efalias |
|000026f0| 27 70 69 63 74 75 72 65 | 2d 74 61 62 2d 73 65 61 |'picture|-tab-sea|
|00002700| 72 63 68 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |rch #[(&|optional|
|00002710| 20 61 72 67 29 20 22 69 | 18 8a 09 84 1a 00 c2 79 | arg) "i|.......y|
|00002720| 88 c3 c4 0d 21 50 65 78 | 88 6f 84 1a 00 c6 08 21 |....!Pex|.o.....!|
|00002730| 88 c7 c8 c4 0d 21 c9 51 | 8a ca 7f 88 60 29 cb 23 |.....!.Q|....`).#|
|00002740| 83 32 00 69 53 10 82 34 | 00 ca 10 29 08 83 3f 00 |.2.iS..4|...)..?.|
|00002750| cc 08 21 82 43 00 c2 79 | 88 ca 29 87 22 20 5b 74 |..!.C..y|..)." [t|
|00002760| 61 72 67 65 74 20 61 72 | 67 20 30 20 22 5e 22 20 |arget ar|g 0 "^" |
|00002770| 72 65 67 65 78 70 2d 71 | 75 6f 74 65 20 70 69 63 |regexp-q|uote pic|
|00002780| 74 75 72 65 2d 74 61 62 | 2d 63 68 61 72 73 20 6d |ture-tab|-chars m|
|00002790| 6f 76 65 2d 74 6f 2d 63 | 6f 6c 75 6d 6e 20 72 65 |ove-to-c|olumn re|
|000027a0| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|000027b0| 22 5b 20 09 5d 2b 5b 22 | 20 22 5d 22 20 6e 69 6c |"[ .]+["| "]" nil|
|000027c0| 20 6d 6f 76 65 20 6d 6f | 76 65 2d 74 6f 2d 63 6f | move mo|ve-to-co|
|000027d0| 6c 75 6d 6e 2d 66 6f 72 | 63 65 5d 20 34 20 28 23 |lumn-for|ce] 4 (#|
|000027e0| 24 20 2e 20 39 36 34 32 | 29 20 22 50 22 5d 29 0a |$ . 9642|) "P"]).|
|000027f0| 23 40 32 35 36 20 54 61 | 62 20 74 72 61 6e 73 70 |#@256 Ta|b transp|
|00002800| 61 72 65 6e 74 6c 79 20 | 28 6a 75 73 74 20 6d 6f |arently |(just mo|
|00002810| 76 65 20 70 6f 69 6e 74 | 29 20 74 6f 20 6e 65 78 |ve point|) to nex|
|00002820| 74 20 74 61 62 20 73 74 | 6f 70 2e 0a 57 69 74 68 |t tab st|op..With|
|00002830| 20 70 72 65 66 69 78 20 | 61 72 67 2c 20 6f 76 65 | prefix |arg, ove|
|00002840| 72 77 72 69 74 65 20 74 | 68 65 20 74 72 61 76 65 |rwrite t|he trave|
|00002850| 72 73 65 64 20 74 65 78 | 74 20 77 69 74 68 20 73 |rsed tex|t with s|
|00002860| 70 61 63 65 73 2e 20 20 | 54 68 65 20 74 61 62 20 |paces.  |The tab |
|00002870| 73 74 6f 70 0a 6c 69 73 | 74 20 63 61 6e 20 62 65 |stop.lis|t can be|
|00002880| 20 63 68 61 6e 67 65 64 | 20 62 79 20 5c 5b 70 69 | changed| by \[pi|
|00002890| 63 74 75 72 65 2d 73 65 | 74 2d 74 61 62 2d 73 74 |cture-se|t-tab-st|
|000028a0| 6f 70 73 5d 20 61 6e 64 | 20 5c 5b 65 64 69 74 2d |ops] and| \[edit-|
|000028b0| 74 61 62 2d 73 74 6f 70 | 73 5d 2e 0a 53 65 65 20 |tab-stop|s]..See |
|000028c0| 61 6c 73 6f 20 64 6f 63 | 75 6d 65 6e 74 61 74 69 |also doc|umentati|
|000028d0| 6f 6e 20 66 6f 72 20 76 | 61 72 69 61 62 6c 65 20 |on for v|ariable |
|000028e0| 60 70 69 63 74 75 72 65 | 2d 74 61 62 2d 63 68 61 |`picture|-tab-cha|
|000028f0| 72 73 27 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |rs'...(d|efalias |
|00002900| 27 70 69 63 74 75 72 65 | 2d 74 61 62 20 23 5b 28 |'picture|-tab #[(|
|00002910| 26 6f 70 74 69 6f 6e 61 | 6c 20 61 72 67 29 20 22 |&optiona|l arg) "|
|00002920| 60 18 c1 20 88 5c 6e 85 | 14 00 c3 69 1c 1d 08 60 |`.. .\n.|...i...`|
|00002930| 7c 88 5c 66 6a 2a 29 87 | 22 20 5b 6f 70 6f 69 6e ||.\fj*).|" [opoin|
|00002940| 74 20 6d 6f 76 65 2d 74 | 6f 2d 74 61 62 2d 73 74 |t move-t|o-tab-st|
|00002950| 6f 70 20 61 72 67 20 6e | 69 6c 20 63 6f 6c 75 6d |op arg n|il colum|
|00002960| 6e 20 69 6e 64 65 6e 74 | 2d 74 61 62 73 2d 6d 6f |n indent|-tabs-mo|
|00002970| 64 65 5d 20 32 20 28 23 | 24 20 2e 20 31 30 32 33 |de] 2 (#|$ . 1023|
|00002980| 30 29 20 22 50 22 5d 29 | 0a 23 40 31 33 34 20 52 |0) "P"])|.#@134 R|
|00002990| 65 63 74 61 6e 67 6c 65 | 20 6b 69 6c 6c 65 64 20 |ectangle| killed |
|000029a0| 6f 72 20 63 6f 70 69 65 | 64 20 62 79 20 5c 5b 70 |or copie|d by \[p|
|000029b0| 69 63 74 75 72 65 2d 63 | 6c 65 61 72 2d 72 65 63 |icture-c|lear-rec|
|000029c0| 74 61 6e 67 6c 65 5d 20 | 69 6e 20 50 69 63 74 75 |tangle] |in Pictu|
|000029d0| 72 65 20 6d 6f 64 65 2e | 0a 54 68 65 20 63 6f 6e |re mode.|.The con|
|000029e0| 74 65 6e 74 73 20 63 61 | 6e 20 62 65 20 72 65 74 |tents ca|n be ret|
|000029f0| 72 69 65 76 65 64 20 62 | 79 20 5c 5b 70 69 63 74 |rieved b|y \[pict|
|00002a00| 75 72 65 2d 79 61 6e 6b | 2d 72 65 63 74 61 6e 67 |ure-yank|-rectang|
|00002a10| 6c 65 5d 1f 0a 28 64 65 | 66 63 6f 6e 73 74 20 70 |le]..(de|fconst p|
|00002a20| 69 63 74 75 72 65 2d 6b | 69 6c 6c 65 64 2d 72 65 |icture-k|illed-re|
|00002a30| 63 74 61 6e 67 6c 65 20 | 6e 69 6c 20 28 23 24 20 |ctangle |nil (#$ |
|00002a40| 2e 20 31 30 36 33 39 29 | 29 0a 23 40 32 38 32 20 |. 10639)|).#@282 |
|00002a50| 43 6c 65 61 72 20 61 6e | 64 20 73 61 76 65 20 72 |Clear an|d save r|
|00002a60| 65 63 74 61 6e 67 6c 65 | 20 64 65 6c 69 6e 65 61 |ectangle| delinea|
|00002a70| 74 65 64 20 62 79 20 70 | 6f 69 6e 74 20 61 6e 64 |ted by p|oint and|
|00002a80| 20 6d 61 72 6b 2e 0a 54 | 68 65 20 72 65 63 74 61 | mark..T|he recta|
|00002a90| 6e 67 6c 65 20 69 73 20 | 73 61 76 65 64 20 66 6f |ngle is |saved fo|
|00002aa0| 72 20 79 61 6e 6b 69 6e | 67 20 62 79 20 5c 5b 70 |r yankin|g by \[p|
|00002ab0| 69 63 74 75 72 65 2d 79 | 61 6e 6b 2d 72 65 63 74 |icture-y|ank-rect|
|00002ac0| 61 6e 67 6c 65 5d 20 61 | 6e 64 20 72 65 70 6c 61 |angle] a|nd repla|
|00002ad0| 63 65 64 0a 77 69 74 68 | 20 77 68 69 74 65 73 70 |ced.with| whitesp|
|00002ae0| 61 63 65 2e 20 20 54 68 | 65 20 70 72 65 76 69 6f |ace.  Th|e previo|
|00002af0| 75 73 6c 79 20 73 61 76 | 65 64 20 72 65 63 74 61 |usly sav|ed recta|
|00002b00| 6e 67 6c 65 2c 20 69 66 | 20 61 6e 79 2c 20 69 73 |ngle, if| any, is|
|00002b10| 20 6c 6f 73 74 2e 20 20 | 57 69 74 68 0a 70 72 65 | lost.  |With.pre|
|00002b20| 66 69 78 20 61 72 67 75 | 6d 65 6e 74 2c 20 74 68 |fix argu|ment, th|
|00002b30| 65 20 72 65 63 74 61 6e | 67 6c 65 20 69 73 20 61 |e rectan|gle is a|
|00002b40| 63 74 75 61 6c 6c 79 20 | 6b 69 6c 6c 65 64 2c 20 |ctually |killed, |
|00002b50| 73 68 69 66 74 69 6e 67 | 20 72 65 6d 61 69 6e 69 |shifting| remaini|
|00002b60| 6e 67 20 74 65 78 74 2e | 1f 0a 28 64 65 66 61 6c |ng text.|..(defal|
|00002b70| 69 61 73 20 27 70 69 63 | 74 75 72 65 2d 63 6c 65 |ias 'pic|ture-cle|
|00002b80| 61 72 2d 72 65 63 74 61 | 6e 67 6c 65 20 23 5b 28 |ar-recta|ngle #[(|
|00002b90| 73 74 61 72 74 20 65 6e | 64 20 26 6f 70 74 69 6f |start en|d &optio|
|00002ba0| 6e 61 6c 20 6b 69 6c 6c | 70 29 20 22 c0 09 5c 6e |nal kill|p) "..\n|
|00002bb0| 0b 23 89 14 87 22 20 5b | 70 69 63 74 75 72 65 2d |.#..." [|picture-|
|00002bc0| 73 6e 61 72 66 2d 72 65 | 63 74 61 6e 67 6c 65 20 |snarf-re|ctangle |
|00002bd0| 73 74 61 72 74 20 65 6e | 64 20 6b 69 6c 6c 70 20 |start en|d killp |
|00002be0| 70 69 63 74 75 72 65 2d | 6b 69 6c 6c 65 64 2d 72 |picture-|killed-r|
|00002bf0| 65 63 74 61 6e 67 6c 65 | 5d 20 34 20 28 23 24 20 |ectangle|] 4 (#$ |
|00002c00| 2e 20 31 30 38 33 32 29 | 20 22 72 5c 6e 50 22 5d |. 10832)| "r\nP"]|
|00002c10| 29 0a 23 40 32 30 38 20 | 43 6c 65 61 72 20 72 65 |).#@208 |Clear re|
|00002c20| 63 74 61 6e 67 6c 65 20 | 64 65 6c 69 6e 65 61 74 |ctangle |delineat|
|00002c30| 65 64 20 62 79 20 70 6f | 69 6e 74 20 61 6e 64 20 |ed by po|int and |
|00002c40| 6d 61 72 6b 20 69 6e 74 | 6f 20 52 45 47 49 53 54 |mark int|o REGIST|
|00002c50| 45 52 2e 0a 54 68 65 20 | 72 65 63 74 61 6e 67 6c |ER..The |rectangl|
|00002c60| 65 20 69 73 20 73 61 76 | 65 64 20 69 6e 20 52 45 |e is sav|ed in RE|
|00002c70| 47 49 53 54 45 52 20 61 | 6e 64 20 72 65 70 6c 61 |GISTER a|nd repla|
|00002c80| 63 65 64 20 77 69 74 68 | 20 77 68 69 74 65 73 70 |ced with| whitesp|
|00002c90| 61 63 65 2e 20 20 57 69 | 74 68 0a 70 72 65 66 69 |ace.  Wi|th.prefi|
|00002ca0| 78 20 61 72 67 75 6d 65 | 6e 74 2c 20 74 68 65 20 |x argume|nt, the |
|00002cb0| 72 65 63 74 61 6e 67 6c | 65 20 69 73 20 61 63 74 |rectangl|e is act|
|00002cc0| 75 61 6c 6c 79 20 6b 69 | 6c 6c 65 64 2c 20 73 68 |ually ki|lled, sh|
|00002cd0| 69 66 74 69 6e 67 20 72 | 65 6d 61 69 6e 69 6e 67 |ifting r|emaining|
|00002ce0| 20 74 65 78 74 2e 1f 0a | 28 64 65 66 61 6c 69 61 | text...|(defalia|
|00002cf0| 73 20 27 70 69 63 74 75 | 72 65 2d 63 6c 65 61 72 |s 'pictu|re-clear|
|00002d00| 2d 72 65 63 74 61 6e 67 | 6c 65 2d 74 6f 2d 72 65 |-rectang|le-to-re|
|00002d10| 67 69 73 74 65 72 20 23 | 5b 28 73 74 61 72 74 20 |gister #|[(start |
|00002d20| 65 6e 64 20 72 65 67 69 | 73 74 65 72 20 26 6f 70 |end regi|ster &op|
|00002d30| 74 69 6f 6e 61 6c 20 6b | 69 6c 6c 70 29 20 22 c0 |tional k|illp) ".|
|00002d40| 09 c2 0b 5c 66 0d 23 5c | 22 87 22 20 5b 73 65 74 |...\f.#\|"." [set|
|00002d50| 2d 72 65 67 69 73 74 65 | 72 20 72 65 67 69 73 74 |-registe|r regist|
|00002d60| 65 72 20 70 69 63 74 75 | 72 65 2d 73 6e 61 72 66 |er pictu|re-snarf|
|00002d70| 2d 72 65 63 74 61 6e 67 | 6c 65 20 73 74 61 72 74 |-rectang|le start|
|00002d80| 20 65 6e 64 20 6b 69 6c | 6c 70 5d 20 36 20 28 23 | end kil|lp] 6 (#|
|00002d90| 24 20 2e 20 31 31 32 38 | 38 29 20 22 72 5c 6e 63 |$ . 1128|8) "r\nc|
|00002da0| 52 65 63 74 61 6e 67 6c | 65 20 74 6f 20 72 65 67 |Rectangl|e to reg|
|00002db0| 69 73 74 65 72 3a 20 5c | 6e 50 22 5d 29 0a 28 64 |ister: \|nP"]).(d|
|00002dc0| 65 66 61 6c 69 61 73 20 | 27 70 69 63 74 75 72 65 |efalias |'picture|
|00002dd0| 2d 73 6e 61 72 66 2d 72 | 65 63 74 61 6e 67 6c 65 |-snarf-r|ectangle|
|00002de0| 20 23 5b 28 73 74 61 72 | 74 20 65 6e 64 20 26 6f | #[(star|t end &o|
|00002df0| 70 74 69 6f 6e 61 6c 20 | 6b 69 6c 6c 70 29 20 22 |ptional |killp) "|
|00002e00| 69 c0 19 1a 8a 0b 83 11 | 00 c4 0d 0e 06 5c 22 82 |i.......|.....\".|
|00002e10| 1c 00 c7 0d 0e 06 5c 22 | c8 0d 0e 06 5c 22 88 29 |......\"|....\".)|
|00002e20| c9 5c 6e 21 88 2a 87 22 | 20 5b 6e 69 6c 20 69 6e |.\n!.*."| [nil in|
|00002e30| 64 65 6e 74 2d 74 61 62 | 73 2d 6d 6f 64 65 20 63 |dent-tab|s-mode c|
|00002e40| 6f 6c 75 6d 6e 20 6b 69 | 6c 6c 70 20 64 65 6c 65 |olumn ki|llp dele|
|00002e50| 74 65 2d 65 78 74 72 61 | 63 74 2d 72 65 63 74 61 |te-extra|ct-recta|
|00002e60| 6e 67 6c 65 20 73 74 61 | 72 74 20 65 6e 64 20 65 |ngle sta|rt end e|
|00002e70| 78 74 72 61 63 74 2d 72 | 65 63 74 61 6e 67 6c 65 |xtract-r|ectangle|
|00002e80| 20 63 6c 65 61 72 2d 72 | 65 63 74 61 6e 67 6c 65 | clear-r|ectangle|
|00002e90| 20 6d 6f 76 65 2d 74 6f | 2d 63 6f 6c 75 6d 6e 2d | move-to|-column-|
|00002ea0| 66 6f 72 63 65 5d 20 34 | 5d 29 0a 23 40 33 31 37 |force] 4|]).#@317|
|00002eb0| 20 4f 76 65 72 6c 61 79 | 20 72 65 63 74 61 6e 67 | Overlay| rectang|
|00002ec0| 6c 65 20 73 61 76 65 64 | 20 62 79 20 5c 5b 70 69 |le saved| by \[pi|
|00002ed0| 63 74 75 72 65 2d 63 6c | 65 61 72 2d 72 65 63 74 |cture-cl|ear-rect|
|00002ee0| 61 6e 67 6c 65 5d 0a 54 | 68 65 20 72 65 63 74 61 |angle].T|he recta|
|00002ef0| 6e 67 6c 65 20 69 73 20 | 70 6f 73 69 74 69 6f 6e |ngle is |position|
|00002f00| 65 64 20 77 69 74 68 20 | 75 70 70 65 72 20 6c 65 |ed with |upper le|
|00002f10| 66 74 20 63 6f 72 6e 65 | 72 20 61 74 20 70 6f 69 |ft corne|r at poi|
|00002f20| 6e 74 2c 20 6f 76 65 72 | 77 72 69 74 69 6e 67 0a |nt, over|writing.|
|00002f30| 65 78 69 73 74 69 6e 67 | 20 74 65 78 74 2e 20 20 |existing| text.  |
|00002f40| 57 69 74 68 20 70 72 65 | 66 69 78 20 61 72 67 75 |With pre|fix argu|
|00002f50| 6d 65 6e 74 2c 20 74 68 | 65 20 72 65 63 74 61 6e |ment, th|e rectan|
|00002f60| 67 6c 65 20 69 73 20 69 | 6e 73 65 72 74 65 64 20 |gle is i|nserted |
|00002f70| 69 6e 73 74 65 61 64 2c | 0a 73 68 69 66 74 69 6e |instead,|.shiftin|
|00002f80| 67 20 65 78 69 73 74 69 | 6e 67 20 74 65 78 74 2e |g existi|ng text.|
|00002f90| 20 20 4c 65 61 76 65 73 | 20 6d 61 72 6b 20 61 74 |  Leaves| mark at|
|00002fa0| 20 6f 6e 65 20 63 6f 72 | 6e 65 72 20 6f 66 20 72 | one cor|ner of r|
|00002fb0| 65 63 74 61 6e 67 6c 65 | 20 61 6e 64 0a 70 6f 69 |ectangle| and.poi|
|00002fc0| 6e 74 20 61 74 20 74 68 | 65 20 6f 74 68 65 72 20 |nt at th|e other |
|00002fd0| 28 64 69 61 67 6f 6e 61 | 6c 6c 79 20 6f 70 70 6f |(diagona|lly oppo|
|00002fe0| 73 65 64 29 20 63 6f 72 | 6e 65 72 2e 1f 0a 28 64 |sed) cor|ner...(d|
|00002ff0| 65 66 61 6c 69 61 73 20 | 27 70 69 63 74 75 72 65 |efalias |'picture|
|00003000| 2d 79 61 6e 6b 2d 72 65 | 63 74 61 6e 67 6c 65 20 |-yank-re|ctangle |
|00003010| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 69 6e 73 |#[(&opti|onal ins|
|00003020| 65 72 74 70 29 20 22 08 | 3a 84 09 00 c1 c2 21 87 |ertp) ".|:.....!.|
|00003030| c3 08 5c 66 5c 22 87 22 | 20 5b 70 69 63 74 75 72 |..\f\"."| [pictur|
|00003040| 65 2d 6b 69 6c 6c 65 64 | 2d 72 65 63 74 61 6e 67 |e-killed|-rectang|
|00003050| 6c 65 20 65 72 72 6f 72 | 20 22 4e 6f 20 72 65 63 |le error| "No rec|
|00003060| 74 61 6e 67 6c 65 20 73 | 61 76 65 64 2e 22 20 70 |tangle s|aved." p|
|00003070| 69 63 74 75 72 65 2d 69 | 6e 73 65 72 74 2d 72 65 |icture-i|nsert-re|
|00003080| 63 74 61 6e 67 6c 65 20 | 69 6e 73 65 72 74 70 5d |ctangle |insertp]|
|00003090| 20 33 20 28 23 24 20 2e | 20 31 31 39 35 33 29 20 | 3 (#$ .| 11953) |
|000030a0| 22 50 22 5d 29 0a 23 40 | 32 36 39 20 49 6e 73 65 |"P"]).#@|269 Inse|
|000030b0| 72 74 20 74 68 65 20 6c | 61 73 74 20 6b 69 6c 6c |rt the l|ast kill|
|000030c0| 65 64 20 72 65 63 74 61 | 6e 67 6c 65 20 61 74 20 |ed recta|ngle at |
|000030d0| 74 68 65 20 70 6f 73 69 | 74 69 6f 6e 20 63 6c 69 |the posi|tion cli|
|000030e0| 63 6b 65 64 20 6f 6e 2e | 0a 41 6c 73 6f 20 6d 6f |cked on.|.Also mo|
|000030f0| 76 65 20 70 6f 69 6e 74 | 20 74 6f 20 6f 6e 65 20 |ve point| to one |
|00003100| 65 6e 64 20 6f 66 20 74 | 68 65 20 74 65 78 74 20 |end of t|he text |
|00003110| 74 68 75 73 20 69 6e 73 | 65 72 74 65 64 20 28 6e |thus ins|erted (n|
|00003120| 6f 72 6d 61 6c 6c 79 20 | 74 68 65 20 65 6e 64 29 |ormally |the end)|
|00003130| 2e 0a 50 72 65 66 69 78 | 20 61 72 67 75 6d 65 6e |..Prefix| argumen|
|00003140| 74 73 20 61 72 65 20 69 | 6e 74 65 72 70 72 65 74 |ts are i|nterpret|
|00003150| 65 64 20 61 73 20 77 69 | 74 68 20 5c 5b 79 61 6e |ed as wi|th \[yan|
|00003160| 6b 5d 2e 0a 49 66 20 60 | 6d 6f 75 73 65 2d 79 61 |k]..If `|mouse-ya|
|00003170| 6e 6b 2d 61 74 2d 70 6f | 69 6e 74 27 20 69 73 20 |nk-at-po|int' is |
|00003180| 6e 6f 6e 2d 6e 69 6c 2c | 20 69 6e 73 65 72 74 20 |non-nil,| insert |
|00003190| 61 74 20 70 6f 69 6e 74 | 0a 72 65 67 61 72 64 6c |at point|.regardl|
|000031a0| 65 73 73 20 6f 66 20 77 | 68 65 72 65 20 79 6f 75 |ess of w|here you|
|000031b0| 20 63 6c 69 63 6b 2e 1f | 0a 28 64 65 66 61 6c 69 | click..|.(defali|
|000031c0| 61 73 20 27 70 69 63 74 | 75 72 65 2d 79 61 6e 6b |as 'pict|ure-yank|
|000031d0| 2d 61 74 2d 63 6c 69 63 | 6b 20 23 5b 28 63 6c 69 |-at-clic|k #[(cli|
|000031e0| 63 6b 20 61 72 67 29 20 | 22 08 84 08 00 c1 5c 6e |ck arg) |".....\n|
|000031f0| 21 88 c3 5c 66 21 87 22 | 20 5b 6d 6f 75 73 65 2d |!..\f!."| [mouse-|
|00003200| 79 61 6e 6b 2d 61 74 2d | 70 6f 69 6e 74 20 6d 6f |yank-at-|point mo|
|00003210| 75 73 65 2d 73 65 74 2d | 70 6f 69 6e 74 20 63 6c |use-set-|point cl|
|00003220| 69 63 6b 20 70 69 63 74 | 75 72 65 2d 79 61 6e 6b |ick pict|ure-yank|
|00003230| 2d 72 65 63 74 61 6e 67 | 6c 65 20 61 72 67 5d 20 |-rectang|le arg] |
|00003240| 32 20 28 23 24 20 2e 20 | 31 32 34 36 30 29 20 22 |2 (#$ . |12460) "|
|00003250| 65 5c 6e 50 22 5d 29 0a | 23 40 33 30 30 20 4f 76 |e\nP"]).|#@300 Ov|
|00003260| 65 72 6c 61 79 20 72 65 | 63 74 61 6e 67 6c 65 20 |erlay re|ctangle |
|00003270| 73 61 76 65 64 20 69 6e | 20 52 45 47 49 53 54 45 |saved in| REGISTE|
|00003280| 52 2e 0a 54 68 65 20 72 | 65 63 74 61 6e 67 6c 65 |R..The r|ectangle|
|00003290| 20 69 73 20 70 6f 73 69 | 74 69 6f 6e 65 64 20 77 | is posi|tioned w|
|000032a0| 69 74 68 20 75 70 70 65 | 72 20 6c 65 66 74 20 63 |ith uppe|r left c|
|000032b0| 6f 72 6e 65 72 20 61 74 | 20 70 6f 69 6e 74 2c 20 |orner at| point, |
|000032c0| 6f 76 65 72 77 72 69 74 | 69 6e 67 0a 65 78 69 73 |overwrit|ing.exis|
|000032d0| 74 69 6e 67 20 74 65 78 | 74 2e 20 20 57 69 74 68 |ting tex|t.  With|
|000032e0| 20 70 72 65 66 69 78 20 | 61 72 67 75 6d 65 6e 74 | prefix |argument|
|000032f0| 2c 20 74 68 65 20 72 65 | 63 74 61 6e 67 6c 65 20 |, the re|ctangle |
|00003300| 69 73 0a 69 6e 73 65 72 | 74 65 64 20 69 6e 73 74 |is.inser|ted inst|
|00003310| 65 61 64 2c 20 73 68 69 | 66 74 69 6e 67 20 65 78 |ead, shi|fting ex|
|00003320| 69 73 74 69 6e 67 20 74 | 65 78 74 2e 20 20 4c 65 |isting t|ext.  Le|
|00003330| 61 76 65 73 20 6d 61 72 | 6b 20 61 74 20 6f 6e 65 |aves mar|k at one|
|00003340| 20 63 6f 72 6e 65 72 0a | 6f 66 20 72 65 63 74 61 | corner.|of recta|
|00003350| 6e 67 6c 65 20 61 6e 64 | 20 70 6f 69 6e 74 20 61 |ngle and| point a|
|00003360| 74 20 74 68 65 20 6f 74 | 68 65 72 20 28 64 69 61 |t the ot|her (dia|
|00003370| 67 6f 6e 61 6c 6c 79 20 | 6f 70 70 6f 73 65 64 29 |gonally |opposed)|
|00003380| 20 63 6f 72 6e 65 72 2e | 1f 0a 28 64 65 66 61 6c | corner.|..(defal|
|00003390| 69 61 73 20 27 70 69 63 | 74 75 72 65 2d 79 61 6e |ias 'pic|ture-yan|
|000033a0| 6b 2d 72 65 63 74 61 6e | 67 6c 65 2d 66 72 6f 6d |k-rectan|gle-from|
|000033b0| 2d 72 65 67 69 73 74 65 | 72 20 23 5b 28 72 65 67 |-registe|r #[(reg|
|000033c0| 69 73 74 65 72 20 26 6f | 70 74 69 6f 6e 61 6c 20 |ister &o|ptional |
|000033d0| 69 6e 73 65 72 74 70 29 | 20 22 c0 09 21 89 1a 3a |insertp)| "..!..:|
|000033e0| 84 10 00 c3 c4 09 5c 22 | 82 15 00 c5 5c 6e 0e 06 |......\"|....\n..|
|000033f0| 5c 22 29 87 22 20 5b 67 | 65 74 2d 72 65 67 69 73 |\")." [g|et-regis|
|00003400| 74 65 72 20 72 65 67 69 | 73 74 65 72 20 72 65 63 |ter regi|ster rec|
|00003410| 74 61 6e 67 6c 65 20 65 | 72 72 6f 72 20 22 52 65 |tangle e|rror "Re|
|00003420| 67 69 73 74 65 72 20 25 | 63 20 64 6f 65 73 20 6e |gister %|c does n|
|00003430| 6f 74 20 63 6f 6e 74 61 | 69 6e 20 61 20 72 65 63 |ot conta|in a rec|
|00003440| 74 61 6e 67 6c 65 2e 22 | 20 70 69 63 74 75 72 65 |tangle."| picture|
|00003450| 2d 69 6e 73 65 72 74 2d | 72 65 63 74 61 6e 67 6c |-insert-|rectangl|
|00003460| 65 20 69 6e 73 65 72 74 | 70 5d 20 34 20 28 23 24 |e insert|p] 4 (#$|
|00003470| 20 2e 20 31 32 38 39 34 | 29 20 22 63 52 65 63 74 | . 12894|) "cRect|
|00003480| 61 6e 67 6c 65 20 66 72 | 6f 6d 20 72 65 67 69 73 |angle fr|om regis|
|00003490| 74 65 72 3a 20 5c 6e 50 | 22 5d 29 0a 23 40 31 36 |ter: \nP|"]).#@16|
|000034a0| 38 20 4f 76 65 72 6c 61 | 79 20 52 45 43 54 41 4e |8 Overla|y RECTAN|
|000034b0| 47 4c 45 20 77 69 74 68 | 20 75 70 70 65 72 20 6c |GLE with| upper l|
|000034c0| 65 66 74 20 63 6f 72 6e | 65 72 20 61 74 20 70 6f |eft corn|er at po|
|000034d0| 69 6e 74 2e 0a 4f 70 74 | 69 6f 6e 61 6c 20 61 72 |int..Opt|ional ar|
|000034e0| 67 75 6d 65 6e 74 20 49 | 4e 53 45 52 54 50 2c 20 |gument I|NSERTP, |
|000034f0| 69 66 20 6e 6f 6e 2d 6e | 69 6c 20 63 61 75 73 65 |if non-n|il cause|
|00003500| 73 20 52 45 43 54 41 4e | 47 4c 45 20 74 6f 20 62 |s RECTAN|GLE to b|
|00003510| 65 20 69 6e 73 65 72 74 | 65 64 2e 0a 4c 65 61 76 |e insert|ed..Leav|
|00003520| 65 73 20 74 68 65 20 72 | 65 67 69 6f 6e 20 73 75 |es the r|egion su|
|00003530| 72 72 6f 75 6e 64 69 6e | 67 20 74 68 65 20 72 65 |rroundin|g the re|
|00003540| 63 74 61 6e 67 6c 65 2e | 1f 0a 28 64 65 66 61 6c |ctangle.|..(defal|
|00003550| 69 61 73 20 27 70 69 63 | 74 75 72 65 2d 69 6e 73 |ias 'pic|ture-ins|
|00003560| 65 72 74 2d 72 65 63 74 | 61 6e 67 6c 65 20 23 5b |ert-rect|angle #[|
|00003570| 28 72 65 63 74 61 6e 67 | 6c 65 20 26 6f 70 74 69 |(rectang|le &opti|
|00003580| 6f 6e 61 6c 20 69 6e 73 | 65 72 74 70 29 20 22 c0 |onal ins|ertp) ".|
|00003590| 19 5c 6e 84 19 00 8a c3 | 60 c4 0d 40 47 21 88 c6 |.\n.....|`..@G!..|
|000035a0| 0d 47 53 21 88 60 5c 22 | 88 29 c7 20 88 c8 0d 21 |.GS!.`\"|.). ...!|
|000035b0| 29 87 22 20 5b 6e 69 6c | 20 69 6e 64 65 6e 74 2d |)." [nil| indent-|
|000035c0| 74 61 62 73 2d 6d 6f 64 | 65 20 69 6e 73 65 72 74 |tabs-mod|e insert|
|000035d0| 70 20 64 65 6c 65 74 65 | 2d 72 65 63 74 61 6e 67 |p delete|-rectang|
|000035e0| 6c 65 20 70 69 63 74 75 | 72 65 2d 66 6f 72 77 61 |le pictu|re-forwa|
|000035f0| 72 64 2d 63 6f 6c 75 6d | 6e 20 72 65 63 74 61 6e |rd-colum|n rectan|
|00003600| 67 6c 65 20 70 69 63 74 | 75 72 65 2d 6d 6f 76 65 |gle pict|ure-move|
|00003610| 2d 64 6f 77 6e 20 70 75 | 73 68 2d 6d 61 72 6b 20 |-down pu|sh-mark |
|00003620| 69 6e 73 65 72 74 2d 72 | 65 63 74 61 6e 67 6c 65 |insert-r|ectangle|
|00003630| 5d 20 34 20 28 23 24 20 | 2e 20 31 33 34 37 34 29 |] 4 (#$ |. 13474)|
|00003640| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00003650| 11 c1 5c 6e 42 12 c0 87 | 22 20 5b 6e 69 6c 20 70 |..\nB...|" [nil p|
|00003660| 69 63 74 75 72 65 2d 6d | 6f 64 65 2d 6d 61 70 20 |icture-m|ode-map |
|00003670| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00003680| 74 5d 20 32 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |t] 2).(d|efalias |
|00003690| 27 70 69 63 74 75 72 65 | 2d 73 75 62 73 74 69 74 |'picture|-substit|
|000036a0| 75 74 65 20 23 5b 28 6f | 6c 64 66 75 6e 20 6e 65 |ute #[(o|ldfun ne|
|000036b0| 77 66 75 6e 29 20 22 c0 | 09 5c 6e 0b 5c 66 24 87 |wfun) ".|.\n.\f$.|
|000036c0| 22 20 5b 73 75 62 73 74 | 69 74 75 74 65 2d 6b 65 |" [subst|itute-ke|
|000036d0| 79 2d 64 65 66 69 6e 69 | 74 69 6f 6e 20 6f 6c 64 |y-defini|tion old|
|000036e0| 66 75 6e 20 6e 65 77 66 | 75 6e 20 70 69 63 74 75 |fun newf|un pictu|
|000036f0| 72 65 2d 6d 6f 64 65 2d | 6d 61 70 20 67 6c 6f 62 |re-mode-|map glob|
|00003700| 61 6c 2d 6d 61 70 5d 20 | 35 5d 29 0a 28 62 79 74 |al-map] |5]).(byt|
|00003710| 65 2d 63 6f 64 65 20 22 | 08 84 e7 00 c1 c2 c3 c4 |e-code "|........|
|00003720| 5c 22 44 10 c5 c6 c7 5c | 22 88 c5 c8 c7 5c 22 88 |\"D....\|"....\".|
|00003730| c5 c9 c7 5c 22 88 c5 ca | cb 5c 22 88 c5 cc cd 5c |...\"...|.\"....\|
|00003740| 22 88 c5 ce cf 5c 22 88 | c5 d0 d1 5c 22 88 c5 d2 |"....\".|...\"...|
|00003750| d1 5c 22 88 c5 d3 d4 5c | 22 88 c5 d5 d6 5c 22 88 |.\"....\|"....\".|
|00003760| c5 d7 d8 5c 22 88 c5 d9 | da 5c 22 88 c5 db dc 5c |...\"...|.\"....\|
|00003770| 22 88 c5 dd de 5c 22 88 | c5 df e0 5c 22 88 c5 e1 |"....\".|...\"...|
|00003780| e2 5c 22 88 e3 08 e4 ce | 23 88 e3 08 e5 e6 23 88 |.\".....|#.....#.|
|00003790| e3 08 e7 e8 23 88 e3 08 | e5 e9 23 88 e3 08 ea eb |....#...|..#.....|
|000037a0| 23 88 e3 08 ec ed 23 88 | e3 08 ee ef 23 88 e3 08 |#.....#.|....#...|
|000037b0| f0 f1 23 88 e3 08 f2 f3 | 23 88 e3 08 f4 f5 23 88 |..#.....|#.....#.|
|000037c0| e3 08 f6 f7 23 88 e3 08 | f8 f9 23 88 e3 08 fa fb |....#...|..#.....|
|000037d0| 23 88 e3 08 fc fd 23 88 | e3 08 fe ff 23 88 e3 08 |#.....#.|....#...|
|000037e0| 81 40 00 81 41 00 23 88 | e3 08 81 42 00 81 43 00 |.@..A.#.|...B..C.|
|000037f0| 23 88 e3 08 81 44 00 81 | 45 00 23 88 e3 08 81 46 |#....D..|E.#....F|
|00003800| 00 81 47 00 23 88 e3 08 | 81 48 00 81 49 00 23 88 |..G.#...|.H..I.#.|
|00003810| c4 87 22 20 5b 70 69 63 | 74 75 72 65 2d 6d 6f 64 |.." [pic|ture-mod|
|00003820| 65 2d 6d 61 70 20 6b 65 | 79 6d 61 70 20 6d 61 6b |e-map ke|ymap mak|
|00003830| 65 2d 76 65 63 74 6f 72 | 20 32 35 36 20 6e 69 6c |e-vector| 256 nil|
|00003840| 20 70 69 63 74 75 72 65 | 2d 73 75 62 73 74 69 74 | picture|-substit|
|00003850| 75 74 65 20 73 65 6c 66 | 2d 69 6e 73 65 72 74 2d |ute self|-insert-|
|00003860| 63 6f 6d 6d 61 6e 64 20 | 70 69 63 74 75 72 65 2d |command |picture-|
|00003870| 73 65 6c 66 2d 69 6e 73 | 65 72 74 20 63 6f 6d 70 |self-ins|ert comp|
|00003880| 6c 65 74 69 6f 6e 2d 73 | 65 70 61 72 61 74 6f 72 |letion-s|eparator|
|00003890| 2d 73 65 6c 66 2d 69 6e | 73 65 72 74 2d 63 6f 6d |-self-in|sert-com|
|000038a0| 6d 61 6e 64 20 63 6f 6d | 70 6c 65 74 69 6f 6e 2d |mand com|pletion-|
|000038b0| 73 65 70 61 72 61 74 6f | 72 2d 73 65 6c 66 2d 69 |separato|r-self-i|
|000038c0| 6e 73 65 72 74 2d 61 75 | 74 6f 66 69 6c 6c 69 6e |nsert-au|tofillin|
|000038d0| 67 20 66 6f 72 77 61 72 | 64 2d 63 68 61 72 20 70 |g forwar|d-char p|
|000038e0| 69 63 74 75 72 65 2d 66 | 6f 72 77 61 72 64 2d 63 |icture-f|orward-c|
|000038f0| 6f 6c 75 6d 6e 20 62 61 | 63 6b 77 61 72 64 2d 63 |olumn ba|ckward-c|
|00003900| 68 61 72 20 70 69 63 74 | 75 72 65 2d 62 61 63 6b |har pict|ure-back|
|00003910| 77 61 72 64 2d 63 6f 6c | 75 6d 6e 20 64 65 6c 65 |ward-col|umn dele|
|00003920| 74 65 2d 63 68 61 72 20 | 70 69 63 74 75 72 65 2d |te-char |picture-|
|00003930| 63 6c 65 61 72 2d 63 6f | 6c 75 6d 6e 20 62 61 63 |clear-co|lumn bac|
|00003940| 6b 77 61 72 64 2d 64 65 | 6c 65 74 65 2d 63 68 61 |kward-de|lete-cha|
|00003950| 72 2d 75 6e 74 61 62 69 | 66 79 20 70 69 63 74 75 |r-untabi|fy pictu|
|00003960| 72 65 2d 62 61 63 6b 77 | 61 72 64 2d 63 6c 65 61 |re-backw|ard-clea|
|00003970| 72 2d 63 6f 6c 75 6d 6e | 20 64 65 6c 65 74 65 2d |r-column| delete-|
|00003980| 62 61 63 6b 77 61 72 64 | 2d 63 68 61 72 20 6b 69 |backward|-char ki|
|00003990| 6c 6c 2d 6c 69 6e 65 20 | 70 69 63 74 75 72 65 2d |ll-line |picture-|
|000039a0| 63 6c 65 61 72 2d 6c 69 | 6e 65 20 6f 70 65 6e 2d |clear-li|ne open-|
|000039b0| 6c 69 6e 65 20 70 69 63 | 74 75 72 65 2d 6f 70 65 |line pic|ture-ope|
|000039c0| 6e 2d 6c 69 6e 65 20 6e | 65 77 6c 69 6e 65 20 70 |n-line n|ewline p|
|000039d0| 69 63 74 75 72 65 2d 6e | 65 77 6c 69 6e 65 20 6e |icture-n|ewline n|
|000039e0| 65 77 6c 69 6e 65 2d 61 | 6e 64 2d 69 6e 64 65 6e |ewline-a|nd-inden|
|000039f0| 74 20 70 69 63 74 75 72 | 65 2d 64 75 70 6c 69 63 |t pictur|e-duplic|
|00003a00| 61 74 65 2d 6c 69 6e 65 | 20 6e 65 78 74 2d 6c 69 |ate-line| next-li|
|00003a10| 6e 65 20 70 69 63 74 75 | 72 65 2d 6d 6f 76 65 2d |ne pictu|re-move-|
|00003a20| 64 6f 77 6e 20 70 72 65 | 76 69 6f 75 73 2d 6c 69 |down pre|vious-li|
|00003a30| 6e 65 20 70 69 63 74 75 | 72 65 2d 6d 6f 76 65 2d |ne pictu|re-move-|
|00003a40| 75 70 20 62 65 67 69 6e | 6e 69 6e 67 2d 6f 66 2d |up begin|ning-of-|
|00003a50| 6c 69 6e 65 20 70 69 63 | 74 75 72 65 2d 62 65 67 |line pic|ture-beg|
|00003a60| 69 6e 6e 69 6e 67 2d 6f | 66 2d 6c 69 6e 65 20 65 |inning-o|f-line e|
|00003a70| 6e 64 2d 6f 66 2d 6c 69 | 6e 65 20 70 69 63 74 75 |nd-of-li|ne pictu|
|00003a80| 72 65 2d 65 6e 64 2d 6f | 66 2d 6c 69 6e 65 20 64 |re-end-o|f-line d|
|00003a90| 65 66 69 6e 65 2d 6b 65 | 79 20 22 03 04 22 20 22 |efine-ke|y ".." "|
|00003aa0| 1b 09 22 20 70 69 63 74 | 75 72 65 2d 74 6f 67 67 |.." pict|ure-togg|
|00003ab0| 6c 65 2d 74 61 62 2d 73 | 74 61 74 65 20 22 09 22 |le-tab-s|tate "."|
|00003ac0| 20 70 69 63 74 75 72 65 | 2d 74 61 62 20 70 69 63 | picture|-tab pic|
|00003ad0| 74 75 72 65 2d 74 61 62 | 2d 73 65 61 72 63 68 20 |ture-tab|-search |
|00003ae0| 22 03 09 22 20 70 69 63 | 74 75 72 65 2d 73 65 74 |".." pic|ture-set|
|00003af0| 2d 74 61 62 2d 73 74 6f | 70 73 20 22 03 0b 22 20 |-tab-sto|ps ".." |
|00003b00| 70 69 63 74 75 72 65 2d | 63 6c 65 61 72 2d 72 65 |picture-|clear-re|
|00003b10| 63 74 61 6e 67 6c 65 20 | 22 03 17 22 20 70 69 63 |ctangle |".." pic|
|00003b20| 74 75 72 65 2d 63 6c 65 | 61 72 2d 72 65 63 74 61 |ture-cle|ar-recta|
|00003b30| 6e 67 6c 65 2d 74 6f 2d | 72 65 67 69 73 74 65 72 |ngle-to-|register|
|00003b40| 20 22 03 19 22 20 70 69 | 63 74 75 72 65 2d 79 61 | ".." pi|cture-ya|
|00003b50| 6e 6b 2d 72 65 63 74 61 | 6e 67 6c 65 20 22 03 18 |nk-recta|ngle "..|
|00003b60| 22 20 70 69 63 74 75 72 | 65 2d 79 61 6e 6b 2d 72 |" pictur|e-yank-r|
|00003b70| 65 63 74 61 6e 67 6c 65 | 2d 66 72 6f 6d 2d 72 65 |ectangle|-from-re|
|00003b80| 67 69 73 74 65 72 20 22 | 03 03 22 20 70 69 63 74 |gister "|.." pict|
|00003b90| 75 72 65 2d 6d 6f 64 65 | 2d 65 78 69 74 20 22 03 |ure-mode|-exit ".|
|00003ba0| 06 22 20 70 69 63 74 75 | 72 65 2d 6d 6f 74 69 6f |." pictu|re-motio|
|00003bb0| 6e 20 22 03 02 22 20 70 | 69 63 74 75 72 65 2d 6d |n ".." p|icture-m|
|00003bc0| 6f 74 69 6f 6e 2d 72 65 | 76 65 72 73 65 20 22 03 |otion-re|verse ".|
|00003bd0| 3c 22 20 70 69 63 74 75 | 72 65 2d 6d 6f 76 65 6d |<" pictu|re-movem|
|00003be0| 65 6e 74 2d 6c 65 66 74 | 20 22 03 3e 22 20 70 69 |ent-left| ".>" pi|
|00003bf0| 63 74 75 72 65 2d 6d 6f | 76 65 6d 65 6e 74 2d 72 |cture-mo|vement-r|
|00003c00| 69 67 68 74 20 22 03 5e | 22 20 70 69 63 74 75 72 |ight ".^|" pictur|
|00003c10| 65 2d 6d 6f 76 65 6d 65 | 6e 74 2d 75 70 20 22 03 |e-moveme|nt-up ".|
|00003c20| 2e 22 20 70 69 63 74 75 | 72 65 2d 6d 6f 76 65 6d |." pictu|re-movem|
|00003c30| 65 6e 74 2d 64 6f 77 6e | 20 22 03 60 22 20 70 69 |ent-down| ".`" pi|
|00003c40| 63 74 75 72 65 2d 6d 6f | 76 65 6d 65 6e 74 2d 6e |cture-mo|vement-n|
|00003c50| 77 20 22 03 27 22 20 70 | 69 63 74 75 72 65 2d 6d |w ".'" p|icture-m|
|00003c60| 6f 76 65 6d 65 6e 74 2d | 6e 65 20 22 03 2f 22 20 |ovement-|ne "./" |
|00003c70| 70 69 63 74 75 72 65 2d | 6d 6f 76 65 6d 65 6e 74 |picture-|movement|
|00003c80| 2d 73 77 20 22 03 5c 5c | 22 20 70 69 63 74 75 72 |-sw ".\\|" pictur|
|00003c90| 65 2d 6d 6f 76 65 6d 65 | 6e 74 2d 73 65 5d 20 34 |e-moveme|nt-se] 4|
|00003ca0| 29 0a 23 40 31 31 35 20 | 49 66 20 6e 6f 6e 2d 6e |).#@115 |If non-n|
|00003cb0| 69 6c 2c 20 69 74 73 20 | 76 61 6c 75 65 20 69 73 |il, its |value is|
|00003cc0| 20 63 61 6c 6c 65 64 20 | 6f 6e 20 65 6e 74 72 79 | called |on entry|
|00003cd0| 20 74 6f 20 50 69 63 74 | 75 72 65 20 6d 6f 64 65 | to Pict|ure mode|
|00003ce0| 2e 0a 50 69 63 74 75 72 | 65 20 6d 6f 64 65 20 69 |..Pictur|e mode i|
|00003cf0| 73 20 69 6e 76 6f 6b 65 | 64 20 62 79 20 74 68 65 |s invoke|d by the|
|00003d00| 20 63 6f 6d 6d 61 6e 64 | 20 5c 5b 70 69 63 74 75 | command| \[pictu|
|00003d10| 72 65 2d 6d 6f 64 65 5d | 2e 1f 0a 28 64 65 66 76 |re-mode]|...(defv|
|00003d20| 61 72 20 70 69 63 74 75 | 72 65 2d 6d 6f 64 65 2d |ar pictu|re-mode-|
|00003d30| 68 6f 6f 6b 20 6e 69 6c | 20 28 23 24 20 2e 20 31 |hook nil| (#$ . 1|
|00003d40| 35 35 32 38 29 29 0a 28 | 62 79 74 65 2d 63 6f 64 |5528)).(|byte-cod|
|00003d50| 65 20 22 c0 09 42 11 c2 | 09 42 11 c3 09 42 11 c4 |e "..B..|.B...B..|
|00003d60| 09 42 11 c0 87 22 20 5b | 70 69 63 74 75 72 65 2d |.B..." [|picture-|
|00003d70| 6d 6f 64 65 2d 6f 6c 64 | 2d 6c 6f 63 61 6c 2d 6d |mode-old|-local-m|
|00003d80| 61 70 20 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |ap curre|nt-load-|
|00003d90| 6c 69 73 74 20 70 69 63 | 74 75 72 65 2d 6d 6f 64 |list pic|ture-mod|
|00003da0| 65 2d 6f 6c 64 2d 6d 6f | 64 65 2d 6e 61 6d 65 20 |e-old-mo|de-name |
|00003db0| 70 69 63 74 75 72 65 2d | 6d 6f 64 65 2d 6f 6c 64 |picture-|mode-old|
|00003dc0| 2d 6d 61 6a 6f 72 2d 6d | 6f 64 65 20 70 69 63 74 |-major-m|ode pict|
|00003dd0| 75 72 65 2d 6d 6f 64 65 | 2d 6f 6c 64 2d 74 72 75 |ure-mode|-old-tru|
|00003de0| 6e 63 61 74 65 2d 6c 69 | 6e 65 73 5d 20 32 29 0a |ncate-li|nes] 2).|
|00003df0| 23 40 33 30 36 39 20 53 | 77 69 74 63 68 20 74 6f |#@3069 S|witch to|
|00003e00| 20 50 69 63 74 75 72 65 | 20 6d 6f 64 65 2c 20 69 | Picture| mode, i|
|00003e10| 6e 20 77 68 69 63 68 20 | 61 20 71 75 61 72 74 65 |n which |a quarte|
|00003e20| 72 2d 70 6c 61 6e 65 20 | 73 63 72 65 65 6e 20 6d |r-plane |screen m|
|00003e30| 6f 64 65 6c 20 69 73 20 | 75 73 65 64 2e 0a 50 72 |odel is |used..Pr|
|00003e40| 69 6e 74 69 6e 67 20 63 | 68 61 72 61 63 74 65 72 |inting c|haracter|
|00003e50| 73 20 72 65 70 6c 61 63 | 65 20 69 6e 73 74 65 61 |s replac|e instea|
|00003e60| 64 20 6f 66 20 69 6e 73 | 65 72 74 69 6e 67 20 74 |d of ins|erting t|
|00003e70| 68 65 6d 73 65 6c 76 65 | 73 20 77 69 74 68 20 6d |hemselve|s with m|
|00003e80| 6f 74 69 6f 6e 0a 61 66 | 74 65 72 77 61 72 64 73 |otion.af|terwards|
|00003e90| 20 73 65 74 74 61 62 6c | 65 20 62 79 20 74 68 65 | settabl|e by the|
|00003ea0| 73 65 20 63 6f 6d 6d 61 | 6e 64 73 3a 0a 20 20 43 |se comma|nds:.  C|
|00003eb0| 2d 63 20 3c 09 20 20 4d | 6f 76 65 20 6c 65 66 74 |-c <.  M|ove left|
|00003ec0| 20 61 66 74 65 72 20 69 | 6e 73 65 72 74 69 6f 6e | after i|nsertion|
|00003ed0| 2e 0a 20 20 43 2d 63 20 | 3e 09 20 20 4d 6f 76 65 |..  C-c |>.  Move|
|00003ee0| 20 72 69 67 68 74 20 61 | 66 74 65 72 20 69 6e 73 | right a|fter ins|
|00003ef0| 65 72 74 69 6f 6e 2e 0a | 20 20 43 2d 63 20 5e 09 |ertion..|  C-c ^.|
|00003f00| 20 20 4d 6f 76 65 20 75 | 70 20 61 66 74 65 72 20 |  Move u|p after |
|00003f10| 69 6e 73 65 72 74 69 6f | 6e 2e 0a 20 20 43 2d 63 |insertio|n..  C-c|
|00003f20| 20 2e 09 20 20 4d 6f 76 | 65 20 64 6f 77 6e 20 61 | ..  Mov|e down a|
|00003f30| 66 74 65 72 20 69 6e 73 | 65 72 74 69 6f 6e 2e 0a |fter ins|ertion..|
|00003f40| 20 20 43 2d 63 20 60 09 | 20 20 4d 6f 76 65 20 6e |  C-c `.|  Move n|
|00003f50| 6f 72 74 68 77 65 73 74 | 20 28 6e 77 29 20 61 66 |orthwest| (nw) af|
|00003f60| 74 65 72 20 69 6e 73 65 | 72 74 69 6f 6e 2e 0a 20 |ter inse|rtion.. |
|00003f70| 20 43 2d 63 20 27 09 20 | 20 4d 6f 76 65 20 6e 6f | C-c '. | Move no|
|00003f80| 72 74 68 65 61 73 74 20 | 28 6e 65 29 20 61 66 74 |rtheast |(ne) aft|
|00003f90| 65 72 20 69 6e 73 65 72 | 74 69 6f 6e 2e 0a 20 20 |er inser|tion..  |
|00003fa0| 43 2d 63 20 2f 09 20 20 | 4d 6f 76 65 20 73 6f 75 |C-c /.  |Move sou|
|00003fb0| 74 68 77 65 73 74 20 28 | 73 77 29 20 61 66 74 65 |thwest (|sw) afte|
|00003fc0| 72 20 69 6e 73 65 72 74 | 69 6f 6e 2e 0a 20 20 43 |r insert|ion..  C|
|00003fd0| 2d 63 20 5c 20 20 20 4d | 6f 76 65 20 73 6f 75 74 |-c \   M|ove sout|
|00003fe0| 68 65 61 73 74 20 28 73 | 65 29 20 61 66 74 65 72 |heast (s|e) after|
|00003ff0| 20 69 6e 73 65 72 74 69 | 6f 6e 2e 0a 54 68 65 20 | inserti|on..The |
|00004000| 63 75 72 72 65 6e 74 20 | 64 69 72 65 63 74 69 6f |current |directio|
|00004010| 6e 20 69 73 20 64 69 73 | 70 6c 61 79 65 64 20 69 |n is dis|played i|
|00004020| 6e 20 74 68 65 20 6d 6f | 64 65 20 6c 69 6e 65 2e |n the mo|de line.|
|00004030| 20 20 54 68 65 20 69 6e | 69 74 69 61 6c 0a 64 69 |  The in|itial.di|
|00004040| 72 65 63 74 69 6f 6e 20 | 69 73 20 72 69 67 68 74 |rection |is right|
|00004050| 2e 20 20 57 68 69 74 65 | 73 70 61 63 65 20 69 73 |.  White|space is|
|00004060| 20 69 6e 73 65 72 74 65 | 64 20 61 6e 64 20 74 61 | inserte|d and ta|
|00004070| 62 73 20 61 72 65 20 63 | 68 61 6e 67 65 64 20 74 |bs are c|hanged t|
|00004080| 6f 0a 73 70 61 63 65 73 | 20 77 68 65 6e 20 72 65 |o.spaces| when re|
|00004090| 71 75 69 72 65 64 20 62 | 79 20 6d 6f 76 65 6d 65 |quired b|y moveme|
|000040a0| 6e 74 2e 20 20 59 6f 75 | 20 63 61 6e 20 6d 6f 76 |nt.  You| can mov|
|000040b0| 65 20 61 72 6f 75 6e 64 | 20 69 6e 20 74 68 65 20 |e around| in the |
|000040c0| 62 75 66 66 65 72 0a 77 | 69 74 68 20 74 68 65 73 |buffer.w|ith thes|
|000040d0| 65 20 63 6f 6d 6d 61 6e | 64 73 3a 0a 20 20 5c 5b |e comman|ds:.  \[|
|000040e0| 70 69 63 74 75 72 65 2d | 6d 6f 76 65 2d 64 6f 77 |picture-|move-dow|
|000040f0| 6e 5d 09 20 20 4d 6f 76 | 65 20 76 65 72 74 69 63 |n].  Mov|e vertic|
|00004100| 61 6c 6c 79 20 74 6f 20 | 53 41 4d 45 20 63 6f 6c |ally to |SAME col|
|00004110| 75 6d 6e 20 69 6e 20 70 | 72 65 76 69 6f 75 73 20 |umn in p|revious |
|00004120| 6c 69 6e 65 2e 0a 20 20 | 5c 5b 70 69 63 74 75 72 |line..  |\[pictur|
|00004130| 65 2d 6d 6f 76 65 2d 75 | 70 5d 09 20 20 4d 6f 76 |e-move-u|p].  Mov|
|00004140| 65 20 76 65 72 74 69 63 | 61 6c 6c 79 20 74 6f 20 |e vertic|ally to |
|00004150| 53 41 4d 45 20 63 6f 6c | 75 6d 6e 20 69 6e 20 6e |SAME col|umn in n|
|00004160| 65 78 74 20 6c 69 6e 65 | 2e 0a 20 20 5c 5b 70 69 |ext line|..  \[pi|
|00004170| 63 74 75 72 65 2d 65 6e | 64 2d 6f 66 2d 6c 69 6e |cture-en|d-of-lin|
|00004180| 65 5d 09 20 20 4d 6f 76 | 65 20 74 6f 20 63 6f 6c |e].  Mov|e to col|
|00004190| 75 6d 6e 20 66 6f 6c 6c | 6f 77 69 6e 67 20 6c 61 |umn foll|owing la|
|000041a0| 73 74 20 6e 6f 6e 2d 77 | 68 69 74 65 73 70 61 63 |st non-w|hitespac|
|000041b0| 65 20 63 68 61 72 61 63 | 74 65 72 2e 0a 20 20 5c |e charac|ter..  \|
|000041c0| 5b 70 69 63 74 75 72 65 | 2d 66 6f 72 77 61 72 64 |[picture|-forward|
|000041d0| 2d 63 6f 6c 75 6d 6e 5d | 09 20 20 4d 6f 76 65 20 |-column]|.  Move |
|000041e0| 72 69 67 68 74 20 69 6e | 73 65 72 74 69 6e 67 20 |right in|serting |
|000041f0| 73 70 61 63 65 73 20 69 | 66 20 72 65 71 75 69 72 |spaces i|f requir|
|00004200| 65 64 2e 0a 20 20 5c 5b | 70 69 63 74 75 72 65 2d |ed..  \[|picture-|
|00004210| 62 61 63 6b 77 61 72 64 | 2d 63 6f 6c 75 6d 6e 5d |backward|-column]|
|00004220| 09 20 20 4d 6f 76 65 20 | 6c 65 66 74 20 63 68 61 |.  Move |left cha|
|00004230| 6e 67 69 6e 67 20 74 61 | 62 73 20 74 6f 20 73 70 |nging ta|bs to sp|
|00004240| 61 63 65 73 20 69 66 20 | 72 65 71 75 69 72 65 64 |aces if |required|
|00004250| 2e 0a 20 20 43 2d 63 20 | 43 2d 66 20 4d 6f 76 65 |..  C-c |C-f Move|
|00004260| 20 69 6e 20 64 69 72 65 | 63 74 69 6f 6e 20 6f 66 | in dire|ction of|
|00004270| 20 63 75 72 72 65 6e 74 | 20 70 69 63 74 75 72 65 | current| picture|
|00004280| 20 6d 6f 74 69 6f 6e 2e | 0a 20 20 43 2d 63 20 43 | motion.|.  C-c C|
|00004290| 2d 62 20 4d 6f 76 65 20 | 69 6e 20 6f 70 70 6f 73 |-b Move |in oppos|
|000042a0| 69 74 65 20 64 69 72 65 | 63 74 69 6f 6e 20 6f 66 |ite dire|ction of|
|000042b0| 20 63 75 72 72 65 6e 74 | 20 70 69 63 74 75 72 65 | current| picture|
|000042c0| 20 6d 6f 74 69 6f 6e 2e | 0a 20 20 52 65 74 75 72 | motion.|.  Retur|
|000042d0| 6e 20 20 4d 6f 76 65 20 | 74 6f 20 62 65 67 69 6e |n  Move |to begin|
|000042e0| 6e 69 6e 67 20 6f 66 20 | 6e 65 78 74 20 6c 69 6e |ning of |next lin|
|000042f0| 65 2e 0a 59 6f 75 20 63 | 61 6e 20 65 64 69 74 20 |e..You c|an edit |
|00004300| 74 61 62 75 6c 61 72 20 | 74 65 78 74 20 77 69 74 |tabular |text wit|
|00004310| 68 20 74 68 65 73 65 20 | 63 6f 6d 6d 61 6e 64 73 |h these |commands|
|00004320| 3a 0a 20 20 4d 2d 54 61 | 62 09 20 20 4d 6f 76 65 |:.  M-Ta|b.  Move|
|00004330| 20 74 6f 20 63 6f 6c 75 | 6d 6e 20 62 65 6e 65 61 | to colu|mn benea|
|00004340| 74 68 20 28 6f 72 20 61 | 74 29 20 6e 65 78 74 20 |th (or a|t) next |
|00004350| 69 6e 74 65 72 65 73 74 | 69 6e 67 20 63 68 61 72 |interest|ing char|
|00004360| 61 63 74 65 72 2e 0a 09 | 20 20 20 20 60 49 6e 64 |acter...|    `Ind|
|00004370| 65 6e 74 73 27 20 72 65 | 6c 61 74 69 76 65 20 74 |ents' re|lative t|
|00004380| 6f 20 61 20 70 72 65 76 | 69 6f 75 73 20 6c 69 6e |o a prev|ious lin|
|00004390| 65 2e 0a 20 20 54 61 62 | 09 20 20 4d 6f 76 65 20 |e..  Tab|.  Move |
|000043a0| 74 6f 20 6e 65 78 74 20 | 73 74 6f 70 20 69 6e 20 |to next |stop in |
|000043b0| 74 61 62 20 73 74 6f 70 | 20 6c 69 73 74 2e 0a 20 |tab stop| list.. |
|000043c0| 20 43 2d 63 20 54 61 62 | 20 53 65 74 20 74 61 62 | C-c Tab| Set tab|
|000043d0| 20 73 74 6f 70 73 20 61 | 63 63 6f 72 64 69 6e 67 | stops a|ccording|
|000043e0| 20 74 6f 20 63 6f 6e 74 | 65 78 74 20 6f 66 20 74 | to cont|ext of t|
|000043f0| 68 69 73 20 6c 69 6e 65 | 2e 0a 09 20 20 20 20 57 |his line|...    W|
|00004400| 69 74 68 20 41 52 47 20 | 72 65 73 65 74 73 20 74 |ith ARG |resets t|
|00004410| 61 62 20 73 74 6f 70 73 | 20 74 6f 20 64 65 66 61 |ab stops| to defa|
|00004420| 75 6c 74 20 28 67 6c 6f | 62 61 6c 29 20 76 61 6c |ult (glo|bal) val|
|00004430| 75 65 2e 0a 09 20 20 20 | 20 53 65 65 20 61 6c 73 |ue...   | See als|
|00004440| 6f 20 64 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 20 |o docume|ntation |
|00004450| 6f 66 20 76 61 72 69 61 | 62 6c 65 09 70 69 63 74 |of varia|ble.pict|
|00004460| 75 72 65 2d 74 61 62 2d | 63 68 61 72 73 0a 09 20 |ure-tab-|chars.. |
|00004470| 20 20 20 77 68 69 63 68 | 20 64 65 66 69 6e 65 73 |   which| defines|
|00004480| 20 22 69 6e 74 65 72 65 | 73 74 69 6e 67 20 63 68 | "intere|sting ch|
|00004490| 61 72 61 63 74 65 72 22 | 2e 20 20 59 6f 75 20 63 |aracter"|.  You c|
|000044a0| 61 6e 20 6d 61 6e 75 61 | 6c 6c 79 0a 09 20 20 20 |an manua|lly..   |
|000044b0| 20 63 68 61 6e 67 65 20 | 74 68 65 20 74 61 62 20 | change |the tab |
|000044c0| 73 74 6f 70 20 6c 69 73 | 74 20 77 69 74 68 20 63 |stop lis|t with c|
|000044d0| 6f 6d 6d 61 6e 64 20 5c | 5b 65 64 69 74 2d 74 61 |ommand \|[edit-ta|
|000044e0| 62 2d 73 74 6f 70 73 5d | 2e 0a 59 6f 75 20 63 61 |b-stops]|..You ca|
|000044f0| 6e 20 6d 61 6e 69 70 75 | 6c 61 74 65 20 74 65 78 |n manipu|late tex|
|00004500| 74 20 77 69 74 68 20 74 | 68 65 73 65 20 63 6f 6d |t with t|hese com|
|00004510| 6d 61 6e 64 73 3a 0a 20 | 20 43 2d 64 09 20 20 43 |mands:. | C-d.  C|
|00004520| 6c 65 61 72 20 28 72 65 | 70 6c 61 63 65 29 20 41 |lear (re|place) A|
|00004530| 52 47 20 63 6f 6c 75 6d | 6e 73 20 61 66 74 65 72 |RG colum|ns after|
|00004540| 20 70 6f 69 6e 74 20 77 | 69 74 68 6f 75 74 20 6d | point w|ithout m|
|00004550| 6f 76 69 6e 67 2e 0a 20 | 20 43 2d 63 20 43 2d 64 |oving.. | C-c C-d|
|00004560| 20 44 65 6c 65 74 65 20 | 63 68 61 72 20 61 74 20 | Delete |char at |
|00004570| 70 6f 69 6e 74 20 2d 20 | 74 68 65 20 63 6f 6d 6d |point - |the comm|
|00004580| 61 6e 64 20 6e 6f 72 6d | 61 6c 6c 79 20 61 73 73 |and norm|ally ass|
|00004590| 69 67 6e 65 64 20 74 6f | 20 43 2d 64 2e 0a 20 20 |igned to| C-d..  |
|000045a0| 5c 5b 70 69 63 74 75 72 | 65 2d 62 61 63 6b 77 61 |\[pictur|e-backwa|
|000045b0| 72 64 2d 63 6c 65 61 72 | 2d 63 6f 6c 75 6d 6e 5d |rd-clear|-column]|
|000045c0| 20 20 43 6c 65 61 72 20 | 28 72 65 70 6c 61 63 65 |  Clear |(replace|
|000045d0| 29 20 41 52 47 20 63 6f | 6c 75 6d 6e 73 20 62 65 |) ARG co|lumns be|
|000045e0| 66 6f 72 65 20 70 6f 69 | 6e 74 2c 20 6d 6f 76 69 |fore poi|nt, movi|
|000045f0| 6e 67 20 62 61 63 6b 20 | 6f 76 65 72 20 74 68 65 |ng back |over the|
|00004600| 6d 2e 0a 20 20 5c 5b 70 | 69 63 74 75 72 65 2d 63 |m..  \[p|icture-c|
|00004610| 6c 65 61 72 2d 6c 69 6e | 65 5d 09 20 20 43 6c 65 |lear-lin|e].  Cle|
|00004620| 61 72 20 41 52 47 20 6c | 69 6e 65 73 2c 20 61 64 |ar ARG l|ines, ad|
|00004630| 76 61 6e 63 69 6e 67 20 | 6f 76 65 72 20 74 68 65 |vancing |over the|
|00004640| 6d 2e 09 20 54 68 65 20 | 63 6c 65 61 72 65 64 0a |m.. The |cleared.|
|00004650| 09 20 20 20 20 74 65 78 | 74 20 69 73 20 73 61 76 |.    tex|t is sav|
|00004660| 65 64 20 69 6e 20 74 68 | 65 20 6b 69 6c 6c 20 72 |ed in th|e kill r|
|00004670| 69 6e 67 2e 0a 20 20 5c | 5b 70 69 63 74 75 72 65 |ing..  \|[picture|
|00004680| 2d 6f 70 65 6e 2d 6c 69 | 6e 65 5d 09 20 20 4f 70 |-open-li|ne].  Op|
|00004690| 65 6e 20 62 6c 61 6e 6b | 20 6c 69 6e 65 28 73 29 |en blank| line(s)|
|000046a0| 20 62 65 6e 65 61 74 68 | 20 63 75 72 72 65 6e 74 | beneath| current|
|000046b0| 20 6c 69 6e 65 2e 0a 59 | 6f 75 20 63 61 6e 20 6d | line..Y|ou can m|
|000046c0| 61 6e 69 70 75 6c 61 74 | 65 20 72 65 63 74 61 6e |anipulat|e rectan|
|000046d0| 67 6c 65 73 20 77 69 74 | 68 20 74 68 65 73 65 20 |gles wit|h these |
|000046e0| 63 6f 6d 6d 61 6e 64 73 | 3a 0a 20 20 43 2d 63 20 |commands|:.  C-c |
|000046f0| 43 2d 6b 20 43 6c 65 61 | 72 20 28 6f 72 20 6b 69 |C-k Clea|r (or ki|
|00004700| 6c 6c 29 20 61 20 72 65 | 63 74 61 6e 67 6c 65 20 |ll) a re|ctangle |
|00004710| 61 6e 64 20 73 61 76 65 | 20 69 74 2e 0a 20 20 43 |and save| it..  C|
|00004720| 2d 63 20 43 2d 77 20 4c | 69 6b 65 20 43 2d 63 20 |-c C-w L|ike C-c |
|00004730| 43 2d 6b 20 65 78 63 65 | 70 74 20 72 65 63 74 61 |C-k exce|pt recta|
|00004740| 6e 67 6c 65 20 69 73 20 | 73 61 76 65 64 20 69 6e |ngle is |saved in|
|00004750| 20 6e 61 6d 65 64 20 72 | 65 67 69 73 74 65 72 2e | named r|egister.|
|00004760| 0a 20 20 43 2d 63 20 43 | 2d 79 20 4f 76 65 72 6c |.  C-c C|-y Overl|
|00004770| 61 79 20 28 6f 72 20 69 | 6e 73 65 72 74 29 20 63 |ay (or i|nsert) c|
|00004780| 75 72 72 65 6e 74 6c 79 | 20 73 61 76 65 64 20 72 |urrently| saved r|
|00004790| 65 63 74 61 6e 67 6c 65 | 20 61 74 20 70 6f 69 6e |ectangle| at poin|
|000047a0| 74 2e 0a 20 20 43 2d 63 | 20 43 2d 78 20 4c 69 6b |t..  C-c| C-x Lik|
|000047b0| 65 20 43 2d 63 20 43 2d | 79 20 65 78 63 65 70 74 |e C-c C-|y except|
|000047c0| 20 72 65 63 74 61 6e 67 | 6c 65 20 69 73 20 74 61 | rectang|le is ta|
|000047d0| 6b 65 6e 20 66 72 6f 6d | 20 6e 61 6d 65 64 20 72 |ken from| named r|
|000047e0| 65 67 69 73 74 65 72 2e | 0a 20 20 5c 5b 63 6f 70 |egister.|.  \[cop|
|000047f0| 79 2d 72 65 63 74 61 6e | 67 6c 65 2d 74 6f 2d 72 |y-rectan|gle-to-r|
|00004800| 65 67 69 73 74 65 72 5d | 20 20 20 43 6f 70 69 65 |egister]|   Copie|
|00004810| 73 20 61 20 72 65 63 74 | 61 6e 67 6c 65 20 74 6f |s a rect|angle to|
|00004820| 20 61 20 72 65 67 69 73 | 74 65 72 2e 0a 20 20 5c | a regis|ter..  \|
|00004830| 5b 61 64 76 65 72 74 69 | 73 65 64 2d 75 6e 64 6f |[adverti|sed-undo|
|00004840| 5d 20 20 20 43 61 6e 20 | 75 6e 64 6f 20 65 66 66 |]   Can |undo eff|
|00004850| 65 63 74 73 20 6f 66 20 | 72 65 63 74 61 6e 67 6c |ects of |rectangl|
|00004860| 65 20 6f 76 65 72 6c 61 | 79 20 63 6f 6d 6d 61 6e |e overla|y comman|
|00004870| 64 73 0a 09 20 20 20 20 | 63 6f 6d 6d 61 6e 64 73 |ds..    |commands|
|00004880| 20 69 66 20 69 6e 76 6f | 6b 65 64 20 73 6f 6f 6e | if invo|ked soon|
|00004890| 20 65 6e 6f 75 67 68 2e | 0a 59 6f 75 20 63 61 6e | enough.|.You can|
|000048a0| 20 72 65 74 75 72 6e 20 | 74 6f 20 74 68 65 20 70 | return |to the p|
|000048b0| 72 65 76 69 6f 75 73 20 | 6d 6f 64 65 20 77 69 74 |revious |mode wit|
|000048c0| 68 3a 0a 20 20 43 2d 63 | 20 43 2d 63 20 57 68 69 |h:.  C-c| C-c Whi|
|000048d0| 63 68 20 61 6c 73 6f 20 | 73 74 72 69 70 73 20 74 |ch also |strips t|
|000048e0| 72 61 69 6c 69 6e 67 20 | 77 68 69 74 65 73 70 61 |railing |whitespa|
|000048f0| 63 65 20 66 72 6f 6d 20 | 65 76 65 72 79 20 6c 69 |ce from |every li|
|00004900| 6e 65 2e 0a 09 20 20 20 | 20 53 74 72 69 70 70 69 |ne...   | Strippi|
|00004910| 6e 67 20 69 73 20 73 75 | 70 70 72 65 73 73 65 64 |ng is su|ppressed|
|00004920| 20 62 79 20 73 75 70 70 | 6c 79 69 6e 67 20 61 6e | by supp|lying an|
|00004930| 20 61 72 67 75 6d 65 6e | 74 2e 0a 0a 45 6e 74 72 | argumen|t...Entr|
|00004940| 79 20 74 6f 20 74 68 69 | 73 20 6d 6f 64 65 20 63 |y to thi|s mode c|
|00004950| 61 6c 6c 73 20 74 68 65 | 20 76 61 6c 75 65 20 6f |alls the| value o|
|00004960| 66 20 20 70 69 63 74 75 | 72 65 2d 6d 6f 64 65 2d |f  pictu|re-mode-|
|00004970| 68 6f 6f 6b 20 20 69 66 | 20 6e 6f 6e 2d 6e 69 6c |hook  if| non-nil|
|00004980| 2e 0a 0a 4e 6f 74 65 20 | 74 68 61 74 20 50 69 63 |...Note |that Pic|
|00004990| 74 75 72 65 20 6d 6f 64 | 65 20 63 6f 6d 6d 61 6e |ture mod|e comman|
|000049a0| 64 73 20 77 69 6c 6c 20 | 77 6f 72 6b 20 6f 75 74 |ds will |work out|
|000049b0| 73 69 64 65 20 6f 66 20 | 50 69 63 74 75 72 65 20 |side of |Picture |
|000049c0| 6d 6f 64 65 2c 20 62 75 | 74 0a 74 68 65 79 20 61 |mode, bu|t.they a|
|000049d0| 72 65 20 6e 6f 74 20 64 | 65 66 61 75 6c 74 6c 79 |re not d|efaultly|
|000049e0| 20 61 73 73 69 67 6e 65 | 64 20 74 6f 20 6b 65 79 | assigne|d to key|
|000049f0| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 70 |s...(def|alias 'p|
|00004a00| 69 63 74 75 72 65 2d 6d | 6f 64 65 20 23 5b 6e 69 |icture-m|ode #[ni|
|00004a10| 6c 20 22 08 c1 3d 83 5c | 6e 00 c2 c3 21 87 c4 c5 |l "..=.\|n...!...|
|00004a20| 21 88 c6 20 15 c7 0e 08 | 21 88 c4 c9 21 88 0e 5c |!.. ....|!...!..\|
|00004a30| 6e 16 09 c4 cb 21 88 08 | 16 0b c1 10 c4 cc 21 88 |n....!..|......!.|
|00004a40| cd 16 5c 66 c4 ce 21 88 | cf ce 21 16 0e c4 d0 21 |..\f..!.|..!....!|
|00004a50| 88 cf d0 21 16 10 c4 d1 | 21 88 c4 d2 21 88 c4 d3 |...!....|!...!...|
|00004a60| 21 88 0e 14 16 13 d5 16 | 14 d6 d7 d8 5c 22 88 d9 |!.......|....\"..|
|00004a70| da db 5c 22 88 dc dd de | df 21 0e 09 23 87 22 20 |..\"....|.!..#." |
|00004a80| 5b 6d 61 6a 6f 72 2d 6d | 6f 64 65 20 70 69 63 74 |[major-m|ode pict|
|00004a90| 75 72 65 2d 6d 6f 64 65 | 20 65 72 72 6f 72 20 22 |ure-mode| error "|
|00004aa0| 59 6f 75 20 61 72 65 20 | 61 6c 72 65 61 64 79 20 |You are |already |
|00004ab0| 65 64 69 74 69 6e 67 20 | 61 20 70 69 63 74 75 72 |editing |a pictur|
|00004ac0| 65 2e 22 20 6d 61 6b 65 | 2d 6c 6f 63 61 6c 2d 76 |e." make|-local-v|
|00004ad0| 61 72 69 61 62 6c 65 20 | 70 69 63 74 75 72 65 2d |ariable |picture-|
|00004ae0| 6d 6f 64 65 2d 6f 6c 64 | 2d 6c 6f 63 61 6c 2d 6d |mode-old|-local-m|
|00004af0| 61 70 20 63 75 72 72 65 | 6e 74 2d 6c 6f 63 61 6c |ap curre|nt-local|
|00004b00| 2d 6d 61 70 20 75 73 65 | 2d 6c 6f 63 61 6c 2d 6d |-map use|-local-m|
|00004b10| 61 70 20 70 69 63 74 75 | 72 65 2d 6d 6f 64 65 2d |ap pictu|re-mode-|
|00004b20| 6d 61 70 20 70 69 63 74 | 75 72 65 2d 6d 6f 64 65 |map pict|ure-mode|
|00004b30| 2d 6f 6c 64 2d 6d 6f 64 | 65 2d 6e 61 6d 65 20 6d |-old-mod|e-name m|
|00004b40| 6f 64 65 2d 6e 61 6d 65 | 20 70 69 63 74 75 72 65 |ode-name| picture|
|00004b50| 2d 6d 6f 64 65 2d 6f 6c | 64 2d 6d 61 6a 6f 72 2d |-mode-ol|d-major-|
|00004b60| 6d 6f 64 65 20 70 69 63 | 74 75 72 65 2d 6b 69 6c |mode pic|ture-kil|
|00004b70| 6c 65 64 2d 72 65 63 74 | 61 6e 67 6c 65 20 6e 69 |led-rect|angle ni|
|00004b80| 6c 20 74 61 62 2d 73 74 | 6f 70 2d 6c 69 73 74 20 |l tab-st|op-list |
|00004b90| 64 65 66 61 75 6c 74 2d | 76 61 6c 75 65 20 70 69 |default-|value pi|
|00004ba0| 63 74 75 72 65 2d 74 61 | 62 2d 63 68 61 72 73 20 |cture-ta|b-chars |
|00004bb0| 70 69 63 74 75 72 65 2d | 76 65 72 74 69 63 61 6c |picture-|vertical|
|00004bc0| 2d 73 74 65 70 20 70 69 | 63 74 75 72 65 2d 68 6f |-step pi|cture-ho|
|00004bd0| 72 69 7a 6f 6e 74 61 6c | 2d 73 74 65 70 20 70 69 |rizontal|-step pi|
|00004be0| 63 74 75 72 65 2d 6d 6f | 64 65 2d 6f 6c 64 2d 74 |cture-mo|de-old-t|
|00004bf0| 72 75 6e 63 61 74 65 2d | 6c 69 6e 65 73 20 74 72 |runcate-|lines tr|
|00004c00| 75 6e 63 61 74 65 2d 6c | 69 6e 65 73 20 74 20 70 |uncate-l|ines t p|
|00004c10| 69 63 74 75 72 65 2d 73 | 65 74 2d 6d 6f 74 69 6f |icture-s|et-motio|
|00004c20| 6e 20 30 20 31 20 72 75 | 6e 2d 68 6f 6f 6b 73 20 |n 0 1 ru|n-hooks |
|00004c30| 65 64 69 74 2d 70 69 63 | 74 75 72 65 2d 68 6f 6f |edit-pic|ture-hoo|
|00004c40| 6b 20 70 69 63 74 75 72 | 65 2d 6d 6f 64 65 2d 68 |k pictur|e-mode-h|
|00004c50| 6f 6f 6b 20 6d 65 73 73 | 61 67 65 20 22 54 79 70 |ook mess|age "Typ|
|00004c60| 65 20 25 73 20 69 6e 20 | 74 68 69 73 20 62 75 66 |e %s in |this buf|
|00004c70| 66 65 72 20 74 6f 20 72 | 65 74 75 72 6e 20 69 74 |fer to r|eturn it|
|00004c80| 20 74 6f 20 25 73 20 6d | 6f 64 65 2e 22 20 73 75 | to %s m|ode." su|
|00004c90| 62 73 74 69 74 75 74 65 | 2d 63 6f 6d 6d 61 6e 64 |bstitute|-command|
|00004ca0| 2d 6b 65 79 73 20 22 5c | 5c 5b 70 69 63 74 75 72 |-keys "\|\[pictur|
|00004cb0| 65 2d 6d 6f 64 65 2d 65 | 78 69 74 5d 22 5d 20 34 |e-mode-e|xit]"] 4|
|00004cc0| 20 28 23 24 20 2e 20 31 | 35 38 36 33 29 20 6e 69 | (#$ . 1|5863) ni|
|00004cd0| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 28 71 |l]).(def|alias (q|
|00004ce0| 75 6f 74 65 20 65 64 69 | 74 2d 70 69 63 74 75 72 |uote edi|t-pictur|
|00004cf0| 65 29 20 28 71 75 6f 74 | 65 20 70 69 63 74 75 72 |e) (quot|e pictur|
|00004d00| 65 2d 6d 6f 64 65 29 29 | 0a 23 40 31 37 32 20 55 |e-mode))|.#@172 U|
|00004d10| 6e 64 6f 20 70 69 63 74 | 75 72 65 2d 6d 6f 64 65 |ndo pict|ure-mode|
|00004d20| 20 61 6e 64 20 72 65 74 | 75 72 6e 20 74 6f 20 70 | and ret|urn to p|
|00004d30| 72 65 76 69 6f 75 73 20 | 6d 61 6a 6f 72 20 6d 6f |revious |major mo|
|00004d40| 64 65 2e 0a 57 69 74 68 | 20 6e 6f 20 61 72 67 75 |de..With| no argu|
|00004d50| 6d 65 6e 74 20 73 74 72 | 69 70 73 20 77 68 69 74 |ment str|ips whit|
|00004d60| 65 73 70 61 63 65 20 66 | 72 6f 6d 20 65 6e 64 20 |espace f|rom end |
|00004d70| 6f 66 20 65 76 65 72 79 | 20 6c 69 6e 65 20 69 6e |of every| line in|
|00004d80| 20 50 69 63 74 75 72 65 | 20 62 75 66 66 65 72 0a | Picture| buffer.|
|00004d90| 20 20 6f 74 68 65 72 77 | 69 73 65 20 6a 75 73 74 |  otherw|ise just|
|00004da0| 20 72 65 74 75 72 6e 20 | 74 6f 20 70 72 65 76 69 | return |to previ|
|00004db0| 6f 75 73 20 6d 6f 64 65 | 2e 1f 0a 28 64 65 66 61 |ous mode|...(defa|
|00004dc0| 6c 69 61 73 20 27 70 69 | 63 74 75 72 65 2d 6d 6f |lias 'pi|cture-mo|
|00004dd0| 64 65 2d 65 78 69 74 20 | 23 5b 28 26 6f 70 74 69 |de-exit |#[(&opti|
|00004de0| 6f 6e 61 6c 20 6e 6f 73 | 74 72 69 70 29 20 22 08 |onal nos|trip) ".|
|00004df0| c1 3d 84 5c 6e 00 c2 c3 | 21 87 5c 66 84 11 00 c5 |.=.\n...|!.\f....|
|00004e00| 20 88 0e 06 16 07 c8 0e | 09 21 88 0e 5c 6e 10 cb | .......|.!..\n..|
|00004e10| cc 21 88 0e 0d 16 0e cf | 20 87 22 20 5b 6d 61 6a |.!......| ." [maj|
|00004e20| 6f 72 2d 6d 6f 64 65 20 | 70 69 63 74 75 72 65 2d |or-mode |picture-|
|00004e30| 6d 6f 64 65 20 65 72 72 | 6f 72 20 22 59 6f 75 20 |mode err|or "You |
|00004e40| 61 72 65 6e 27 74 20 65 | 64 69 74 69 6e 67 20 61 |aren't e|diting a|
|00004e50| 20 50 69 63 74 75 72 65 | 2e 22 20 6e 6f 73 74 72 | Picture|." nostr|
|00004e60| 69 70 20 70 69 63 74 75 | 72 65 2d 63 6c 65 61 6e |ip pictu|re-clean|
|00004e70| 20 70 69 63 74 75 72 65 | 2d 6d 6f 64 65 2d 6f 6c | picture|-mode-ol|
|00004e80| 64 2d 6d 6f 64 65 2d 6e | 61 6d 65 20 6d 6f 64 65 |d-mode-n|ame mode|
|00004e90| 2d 6e 61 6d 65 20 75 73 | 65 2d 6c 6f 63 61 6c 2d |-name us|e-local-|
|00004ea0| 6d 61 70 20 70 69 63 74 | 75 72 65 2d 6d 6f 64 65 |map pict|ure-mode|
|00004eb0| 2d 6f 6c 64 2d 6c 6f 63 | 61 6c 2d 6d 61 70 20 70 |-old-loc|al-map p|
|00004ec0| 69 63 74 75 72 65 2d 6d | 6f 64 65 2d 6f 6c 64 2d |icture-m|ode-old-|
|00004ed0| 6d 61 6a 6f 72 2d 6d 6f | 64 65 20 6b 69 6c 6c 2d |major-mo|de kill-|
|00004ee0| 6c 6f 63 61 6c 2d 76 61 | 72 69 61 62 6c 65 20 74 |local-va|riable t|
|00004ef0| 61 62 2d 73 74 6f 70 2d | 6c 69 73 74 20 70 69 63 |ab-stop-|list pic|
|00004f00| 74 75 72 65 2d 6d 6f 64 | 65 2d 6f 6c 64 2d 74 72 |ture-mod|e-old-tr|
|00004f10| 75 6e 63 61 74 65 2d 6c | 69 6e 65 73 20 74 72 75 |uncate-l|ines tru|
|00004f20| 6e 63 61 74 65 2d 6c 69 | 6e 65 73 20 66 6f 72 63 |ncate-li|nes forc|
|00004f30| 65 2d 6d 6f 64 65 2d 6c | 69 6e 65 2d 75 70 64 61 |e-mode-l|ine-upda|
|00004f40| 74 65 5d 20 32 20 28 23 | 24 20 2e 20 31 39 37 32 |te] 2 (#|$ . 1972|
|00004f50| 37 29 20 22 50 22 5d 29 | 0a 23 40 34 30 20 45 6c |7) "P"])|.#@40 El|
|00004f60| 69 6d 69 6e 61 74 65 20 | 77 68 69 74 65 73 70 61 |iminate |whitespa|
|00004f70| 63 65 20 61 74 20 65 6e | 64 73 20 6f 66 20 6c 69 |ce at en|ds of li|
|00004f80| 6e 65 73 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |nes...(d|efalias |
|00004f90| 27 70 69 63 74 75 72 65 | 2d 63 6c 65 61 6e 20 23 |'picture|-clean #|
|00004fa0| 5b 6e 69 6c 20 22 8a 65 | 62 88 c0 c1 c2 c3 23 85 |[nil ".e|b.....#.|
|00004fb0| 14 00 c4 94 60 7c 88 82 | 04 00 29 87 22 20 5b 72 |....`|..|..)." [r|
|00004fc0| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|00004fd0| 20 22 5b 20 09 5d 5b 20 | 09 5d 2a 24 22 20 6e 69 | "[ .][ |.]*$" ni|
|00004fe0| 6c 20 74 20 30 5d 20 34 | 20 28 23 24 20 2e 20 32 |l t 0] 4| (#$ . 2|
|00004ff0| 30 33 31 38 29 5d 29 0a | 28 70 72 6f 76 69 64 65 |0318)]).|(provide|
|00005000| 20 28 71 75 6f 74 65 20 | 70 69 63 74 75 72 65 29 | (quote |picture)|
|00005010| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+